Событие на созданый компонент!

← →
MegaVovan © (2005-12-11 23:10) [0]

Я создал масив компонентов TSpeedButon с помощью продцедуры:
for i:=0 to 20 do
for j:=0 to 20 do
begin
TPool[i,j]:=TSpeedButton.Create(frmMain);
TPool[i,j].Parent:=frmMain;
end;
Как мне теперь написать обработчик события на клик!

← →
alex-drob © (2005-12-11 23:13) [1]

TPool[i,j].OnClick:=процедура;

← →
MegaVovan © (2005-12-11 23:15) [2]

А где это писать

private
procedure click(Sender: TObject);

procedure frmMain.click(Sender: TObject);
begin
...
end;

for i:=0 to 20 do
for j:=0 to 20 do
begin
TPool[i,j]:=TSpeedButton.Create(frmMain);
TPool[i,j].Parent:=frmMain;
TPool[i,j].OnClick:=click;
end;

Чтобы потом различать какая кнопка нажата можно каждой кнопке присваивать какое нибудь имя, а в процедуре проверять tspeedbutton(sender).name

Событие на созданый компонент! Найти похожие ветки