Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.015 c
1-89909
UDS
2003-11-13 21:08
2003.11.27
Вызов процедуры из другого окна.


4-90167
Serega____
2003-10-03 14:32
2003.11.27
API


3-89757
vova
2003-11-07 21:30
2003.11.27
нарастание значения


1-89869
Ламер
2003-11-16 01:56
2003.11.27
Тэг кнопки


14-90095
REA
2003-11-04 16:04
2003.11.27
Круговая порука