Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c