Текущий архив: 2003.11.27;
Скачать: CL | DM;
Вниз
Тэг кнопки Найти похожие ветки
← →
Ламер (2003-11-16 01:56) [0]Необходимо найти на форме кнопки с тэгом = например 2 и удалить их.
Если можно то с кусочком кода.....
Спасибо
← →
Palladin © (2003-11-16 01:59) [1]Перебор компонентов лежащих на форме (TComponent.Components[], TComponent.ComponentsCount, рекурсия), проверка на TButton (is), провека на значение tag (if (xxx as TButton).Tag=2 then).
← →
Ламер (2003-11-16 02:28) [2]провека на значение tag (if (xxx as TButton).Tag=2 then)
не можешь по-подробнее что значит ххх as ....
Заранее спасибо!!!
← →
Palladin © (2003-11-16 02:33) [3]Нет уж, кирпичи тебе дали, здание сам строй.
← →
Ламер (2003-11-16 02:39) [4]Пасибки, уже построил..... ;)))
Все лень самому почитать да поискать ......
Еще раз спасибо !!!!
← →
Ламер (2003-11-16 03:24) [5]Упппс компилируется но при нажатии на кнопку - ошибка.
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to ComponentCount - 1 do
If (Components[i] is TButton)then
if(Components[i].Tag > 1) then
(Components[i] as TControl).Free;
end;
Подскажите....
← →
Германн © (2003-11-16 03:39) [6]Вместо цикла for i:=0 to ComponentCount-1 используй цикл for i:=ComponentCount-1 downto 0.
Страницы: 1 вся ветка
Текущий архив: 2003.11.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c
