Тэг кнопки

← →
Ламер (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;

Подскажите....

Вместо цикла for i:=0 to ComponentCount-1 используй цикл for i:=ComponentCount-1 downto 0.

Тэг кнопки Найти похожие ветки