| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Владимир_К ©   (2005-12-19 18:28:00) 

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

---

Project1   (2005-12-19 20:08:00) [1]

Вот пример динамического создания формы. кнопки и обработчика события:

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.


---

Leonid Troyanovsky   (2005-12-19 19:06:00) [2]

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

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


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

--
Regards, LVT.

---

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

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

---

Leonid Troyanovsky   (2005-12-19 18:48:00) [4]

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


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

--
Regrads, LVT.

---

Наверх