Как создать элемент

← →
elf (2003-06-25 22:40) [0]

Как создать новый элемент (например кнопку)на форме, программно? Большая просьба написать листинг.

← →
Anatoly Podgoretsky (2003-06-26 00:03) [1]

Например TButton.Create

← →
Fenik (2003-06-26 00:27) [2]

TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
Btn: TButton;
end;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
Btn := TButton.Create(self);
Btn.Parent := self;
Btn.SetBounds(100, 100, 100, 100);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Btn.Free;
end;

← →
VMcL (2003-06-26 02:39) [3]

Btn.Free; - это не надо.

← →
Skier (2003-06-26 08:34) [4]

>VMcL © (26.06.03 02:39)
Я бы сказал помягче : "необязательно"

← →
elf (2003-06-27 00:27) [5]

Всем спасибо, вы очень мне помогли!!!

← →
elf (2003-06-27 19:05) [6]

Я извиняюсь, но хочется опять вас побеспокоить. Мне надо создать на ToolBar кнопку SpeedButton. Я понимаю, что это легко, но сам дойти не могу. Помогите кто чем может, желательно листинг напишите, а то я пока еще не мастер в этом деле.

← →
Vladymir (2003-06-28 02:57) [7]

...
private
Bt: TToolButton;
procedure CreatingToolButton;
...
implementation

procedure TForm1.CreatingToolButton;
begin
Bt:= TToolButton.Create(ToolBar1);
Bt.Parent:=ToolBar1;
Bt.Caption:= "Новая кнопка";
Bt.OnClick:= Form1.OnClick;// или что-нить другое TNotifyEvent
end;

Если принципиально создание не ToolButton, а SpeedButton, то замени все ToolButton на SpeedButton, однако необходимости в этом не вижу :)))

← →
Юрий Зотов (2003-06-28 03:11) [8]

> elf

Вот по этой ссылке есть статья:
http://www.delphikingdom.com/helloworld/runtime_comp.htm

Если Вы ее прочитаете, все подобные вопросы исчезнут навсегда.

← →
elf (2003-06-30 22:45) [9]

Благодарю еще раз. Я вам очень признателен!

← →
Mihey (2003-06-30 23:14) [10]

2 VMcL:

> Btn.Free; - это не надо.

А почему? У кнопки же нет своего Owner?

← →
Palladin (2003-06-30 23:19) [11]

как это нету...
Btn := TButton.Create(self);
Btn.Parent := self;

← →
Mihey (2003-06-30 23:46) [12]

2 Palladin:

Было дело, что есть что-то там не задать, то сам объект не удалится. Впрочем, оставлю это на вашей совести.

← →
Palladin (2003-06-30 23:54) [13]

constructor TButton.Create(AOwner:TComponent);

Btn:=TButton.Create(self);

я не понял твоего смущенья?

← →
Beginner3000 (2003-07-01 00:31) [14]

хороший компонент self
часто пользуюсь
только не удаляет он ни хрена
и вообще я только начинающий, извините если что
Btn.Parent := self; это где?

← →
Palladin (2003-07-01 00:38) [15]

а вот нажми F1 и просвятись зачем же ты его используешь так часто

← →
default (2003-07-01 00:40) [16]

Beginner3000 (01.07.03 00:31)
там где Self
если Self - это форма - значит на форме

← →
default (2003-07-01 00:43) [17]

Fenik © (26.06.03 00:27)
если сам объект уничтожаешь тогда зачем "давать" ему владельца?
тогда уж Btn := TButton.Create(nil);

← →
Beginner3000 (2003-07-01 00:44) [18]

понял
спасибо
вопросов нет

Как создать элемент Найти похожие ветки