Главная страница
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.011 c
3-70185
Filat
2003-05-02 16:35
2003.05.22
FireBird - SYSDBA. А можно для клиента без последнего?


4-70573
dv81
2003-03-21 23:37
2003.05.22
Как отобразить стандартное окно поиска Windows ?


3-70093
Michel
2003-05-04 15:23
2003.05.22
Как преобразовать БД одной системы в другую


8-70411
LeGaT
2003-02-10 22:58
2003.05.22
Сетевой графический редактор


4-70558
МитяЙ2
2003-03-23 10:41
2003.05.22
Вывод приложения на передний план...