создание своей кнопки

[А. Долматов]

Народ, много читал о создании компонентов и объектов, но непонимаю как это правильно делать. Хочу создать первую свою кнопку, но что-то не получется разобраться с событием create. Подскажите как это делается. В справке только общее написано даже примера нет. Я хочу создать кнопку по нажатию на другую кнопку. Положение на форме не важно, главное для меня смысл понять как это делается.

[strannik]

Пробуй так:
в type вставь
TControlClass = class of TControl;
...
далее по нажатию кнопки:
procedure TForm1.Button1Click(Sender: TObject);
var
Ref : TControlClass;
inst: TControl;
begin
Ref:=TControlClass(TButton);
inst:=ref.Create(Self);
inst.Parent:=self;
inst.Left:=50;
inst.Top:=100;
end;

[А. Долматов]

Спасибо. Получилось. Но один вопрос, почему нет свойсва caption?

[Pitbull]

Сообщение от А. Долматов

Спасибо. Получилось. Но один вопрос, почему нет свойсва caption?

inst.Name :='Имя';

[ZhekON]

вот нашол статейку по создании кнопки : http://softsl.com/Pagsect-4.html

[t3ns0r]

Сообщение от strannik

Пробуй так:
в type вставь
TControlClass = class of TControl;
...
далее по нажатию кнопки:
procedure TForm1.Button1Click(Sender: TObject);
var
Ref : TControlClass;
inst: TControl;
begin
Ref:=TControlClass(TButton);
inst:=ref.Create(Self);
inst.Parent:=self;
inst.Left:=50;
inst.Top:=100;
end;

попробовал создать таким образом TImage, используя TGraphicControl,
но у него почему-то не было свойства Picture. Как исправить?

[Showy]

...
var
btn:Tbutton;
begin
btn:=TButton.create(form1);
btn.left:=0;
btn.top:=0;
btn.width:=75;
btn.height:=25;
btn.caption:='Button';
form1.insertcontrol(btn);
end;
...

На все другие компоненты точно так же.

[SereJa1020]

А вот например код, который добавляеь кнопку по щелчку мыши на форму:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftSpace; X, Y: Integer);
var
Btn: TButton;
begin
Btn := TButton.Create(Self);
Btn.Parent := Self;
Btn.Left := X;
Btn.Top := Y;
Btn.Width := Btn.Width + 50;
end;

[zetrix]

попробовал создать таким образом TImage, используя TGraphicControl,
но у него почему-то не было свойства Picture. Как исправить?

Можно так:
В uses не забудьте добавить ExtCtrls

procedure TForm1.Button1Click(Sender: TObject);
var image:Timage;
begin
image:=Timage.create(form1);
image.left:=100;
image.top:=100;
image.width:=75;
image.height:=25;
image.AutoSize:=true;
image.Picture.LoadFromFile('C:\111.bmp');
form1.insertcontrol(image);
end;