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

← →
Плохой человек (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]

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

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