Программное добавление Кнопки.

← →
Владимир_К (2005-12-19 18:28) [0]

Здравствуйте, можно-ли добавить программно кнопку SpeedBatton на форму? Спасибо.

← →
Leonid Troyanovsky © (2005-12-19 18:48) [1]

> Владимир_К (19.12.05 18:28)
> Здравствуйте, можно-ли добавить программно кнопку SpeedBatton
> на форму?

Если она уже есть, и раз уж кнопка, то, видимо, контрол, и, сл-но,
SpeedBatton.Parent := Form {рекоменд. Self, если в методе формы}.

--
Regrads, LVT.

← →
Владимир_К (2005-12-19 18:55) [2]

Возможно я чегото не понял, но мне кажется это не тот случай. Необходимо при определенных условиях на форму добавить кнопку (до этого ее там нет).

← →
Leonid Troyanovsky © (2005-12-19 19:06) [3]

> Владимир_К (19.12.05 18:55) [2]

> Необходимо при определенных условиях на форму добавить
> кнопку (до этого ее там нет).

Если ее вообще нет, то ее надо создать (See: constructor Create).
Про добавить я уже рассказал.

--
Regards, LVT.

← →
Project1 (2005-12-19 20:08) [4]

Вот пример динамического создания формы. кнопки и обработчика события:
program Project1; uses Forms, stdctrls, Dialogs, classes; {$R *.RES} type TF2 = class(TForm) procedure cl(sender: Tobject); end; var F: TForm; FF: TF2; B: Tbutton; cl: TNotifyEvent; procedure TF2.cl(sender: Tobject); begin ShowMessage("TEST"); end; begin F := TForm.Create(nil); F.parent := nil; F.caption := "---><---"; B := TButton.Create(F); B.Parent := F; B.OnClick := FF.cl; B.Caption := "ttt"; Application.Title := "TEST"; F.showmodal; end.

Программное добавление Кнопки. Найти похожие ветки