Как создать процедуру для динамически создаваемого компонента

← →
greg123 (2007-03-12 15:42) [0]

У меня динамически создаются несколько кнопок, теперь мне нужно по нажатию на каждую из кнопок совершать определенное действие, как это можно реализовать?

← →
MBo © (2007-03-12 15:45) [1]

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342

← →
Сергей М. © (2007-03-12 15:47) [2]

type
TSomeClass = class[(TSomeAncestorClass)]
..
procedure DoOnSomeButtonClick(Sender: TObject);
..
end;

..

procedure TSomeClass.DoOnSomeButtonClick(Sender: TObject);
begin
DoSomething;
end;

..

SomeButton := TSomeButton.Create(..);
..
SomeButton.OnClick := SomeObjectOfTSomeClass.DoOnSomeButtonClick;

← →
RASkov (2007-03-12 18:17) [3]

Как создать процедуру для динамически создаваемого компонента Найти похожие ветки