Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

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

← →
Владимир_К   (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.


---

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

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c