Создание контрола на форме

← →
ovling (2004-04-26 20:36) [0]

Доброго времени суток,
Я бы хотел узнать, можно ли на форме программно создать кнопку, списот и т.д. Если да, то как обрабатывать нажатие на созданную кнопку или выбор элемента из списка.

Зарание благодарен,
Ovling

← →
Боян Георгиев (2004-04-26 20:42) [1]

procedure BtnClck(Sender: TObject); begin ShowMessage("Button clicked"); end; b := TButton.Create(Form1); b.Parent := Form1; b.OnClick = BtnClck;
Непроверено.

← →
P.N.P. © (2004-04-26 20:42) [2]

> ovling (26.04.04 20:36)

procedure Button1OnClick(sender:TObject);
begin
...
end;

MyComponent:=TMyComponent.Create;
MyComponent.Parent:=Form1;
...
MyComponent.OnClick:=Button1OnClick;

← →
Gero © (2004-04-26 20:46) [3]

> procedure BtnClck(Sender: TObject);
> procedure Button1OnClick(sender:TObject);

procedure TSomeClass.SomeComponentClick(Sender: TObject);
...

> ovling (26.04.04 20:36)

> можно ли на форме программно создать кнопку, списот и т.д.

Можно.

> как обрабатывать

Написать собственную процедуру и назначить её в качестве обработчика.

Рекомендую:

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

Создание контрола на форме Найти похожие ветки