![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как создать процедуру для динамически создаваемого компонента [D7]
greg123 © (2007-03-12 15:42:00)У меня динамически создаются несколько кнопок, теперь мне нужно по нажатию на каждую из кнопок совершать определенное действие, как это можно реализовать?
RASkov (2007-03-12 18:17:00) [1]> [2] Сергей М. © (12.03.07 15:47)
:) уже шаблоном стало.... :)
Сергей М. (2007-03-12 15:47:00) [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;
MBo (2007-03-12 15:45:00) [3]http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342