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

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

← →
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]

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

---

← →
alex-drob ©   (2005-12-11 23:19) [3]

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

---

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

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



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