Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.22;
Скачать: CL | DM;

Вниз

Приведите пример отслеживания событий в динамически созданных объ   Найти похожие ветки 

 
Nikos   (2003-05-11 11:42) [0]

Немогли бы вы привести простой пример процедуры, в которой создается массив объектов TButton. Потом нужно будет отследить события нажатия на один из этих объектов и выполнить определенные действия. При чем эти действия будут различны, то есть при клике по button[1] одно действие, а по button[2] другое.


 
Song ©   (2003-05-11 11:52) [1]

Var Mas: array of TButton;

..

SetLength(Mas,5);
For t:=Low(Mas) to High(Mas) Do
With TButton.Create(Self) Do
Begin
Parent:=Self;
Left:=...;
Top:=...;
Caption:=IntToStr(t);
onClick:=MyButtonsClick;
End;

..

Procedure класс_формы.MyButtosClick(Sender: TObject);
Begin
ShowMessage("Нажата кнопка "+TButton(Sender).Caption);
End;


 
Song ©   (2003-05-11 11:53) [2]

Вот так правиьней:


...
SetLength(Mas,5);
For t:=Low(Mas) to High(Mas) Do
Begin
Mas[t]:=TButton.Create(Self);
With Mas[t] Do
Begin
Parent:=Self;
Left:=...;
Top:=...;
Caption:=IntToStr(t);
onClick:=MyButtonsClick;
End;
End;
...



Страницы: 1 вся ветка

Текущий архив: 2003.05.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
1-70354
Идущий
2003-05-09 21:58
2003.05.22
Работа с файлами в 10 млн. строк


14-70513
Навичек
2003-04-30 03:25
2003.05.22
Ошибка при динамическом создание обекта


3-70123
Ann
2003-04-30 13:06
2003.05.22
EhLib 2.0


1-70376
Might
2003-05-10 16:06
2003.05.22
Создание нового формата файлов


7-70551
gsv_
2003-03-24 12:58
2003.05.22
исползовать информацию из другого окна