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

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

← →
Плохой человек   (2003-04-28 19:29) [0]

Есть массив компонентов типа TButton. Я их создаю и вывожу на форму. На всякий случай в tag пишу их индекс. Каждому нужно присвоить одну и ту же процедуру для обработки OnClick, чтобы в процедурке читался тэг нажатого компонента (= определялся индекс). Примерно представляю, что надо с Sender"ом работать, но мало времени. Если есть у кого - напишите хоть примерчик.

---

← →
Skier ©   (2003-04-28 19:35) [1]

if Sender is TButton then begin
if TButton(Sender).Tag = 0 then...//your code goes here...
end; //if

---

← →
Goffman   (2003-04-28 19:36) [2]

NewButton.OnClick:=YourClickProc;

procedure YourClicProc(Sender:TObject);
begin
with Sender as TButton do
ShowMessage(IntToStr(Tag));
end;

Примерно так

---

← →
Arm79 ©   (2003-04-28 19:37) [3]

примерно так

...
var
IndexButton:Word;
...

procedure TForm1.Button1Click(Sender: TObject);
begin
// без контроля исключений !!!
IndexButton:=(Sender as TButton).Tag;
end;
....

For i:=2 to ButtonCount
do ButtonArray[i].onClick:=Button1.onClick

---

← →
Плохой человек   (2003-04-28 21:02) [4]

Молодцы! Точь в точь то, что я хотел. Всем спасибо.

---

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

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



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