Главная страница
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.016 c
1-70251
Мыш
2003-05-10 11:19
2003.05.22
Управление произвольным приложением


1-70377
KSergey
2003-05-10 14:36
2003.05.22
Ф-ция SelectClipRgn и печать на принтере


1-70256
Delpher
2003-05-11 16:23
2003.05.22
Сортировка


3-70135
Nikos
2003-04-30 14:20
2003.05.22
зависает программа


14-70515
Carmen
2003-05-03 08:42
2003.05.22
Написание почтового клиента