Главная страница
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.023 c
1-89980
Developerr
2003-11-16 19:58
2003.11.27
Как округлить дробное число с 3-х занков до 2-х после запятой?


1-89831
Goorus
2003-11-17 03:09
2003.11.27
Graphics


1-89866
Varelik
2003-11-13 14:01
2003.11.27
Рассыпается дизайн при смене крупного шрифта системы на мелкий.


3-89712
AndrewCh
2003-11-06 12:16
2003.11.27
D5+Sybase SQL Any + W2Kru - error


9-89672
Ник М. Цов
2003-05-08 17:35
2003.11.27
Текстовый квест на Delphi - реально?