Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
Вниз
Приведите пример отслеживания событий в динамически созданных объ Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c
