Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.018 c
2-1135109926
newhite
2005-12-20 23:18
2006.01.08
?


2-1135158971
Dmitrij_K
2005-12-21 12:56
2006.01.08
MS Word


14-1134507398
(CHALING 32)S K i N E R
2005-12-13 23:56
2006.01.08
Delphi 6 и Delphi 7


1-1133802665
The Only
2005-12-05 20:11
2006.01.08
смена языка


6-1127717027
Sam05
2005-09-26 10:43
2006.01.08
Ограничение получаемой информации через Сокеты