Главная страница
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.029 c
14-90072
velial
2003-11-05 12:19
2003.11.27
Team Source или создание приложения в команде


14-90094
Dark Elf
2003-11-04 16:30
2003.11.27
Просмотрщик dll


7-90139
Basil
2003-09-08 18:08
2003.11.27
Помогите спрятать прогу от CTRL+ALT+DEL в NT!


1-89851
mrAld
2003-11-16 15:09
2003.11.27
Трей для чайников


1-89846
mmmaloy
2003-11-16 18:52
2003.11.27
Не работает Find в TStringList