Как создать свой Button ч/з код.

← →
AlexQ © (2002-08-13 12:49) [0]

Не могу создать баттон. пробовал по разному, неполучается.

← →
Skier © (2002-08-13 12:56) [1]

>AlexQ
Покажи как пробовал ...

← →
Cr@sh © (2002-08-13 13:04) [2]

public
{ Public declarations }
New:TButton;
procedure NewDown(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
new:=TButton.Create(Self);
with new do
begin
parent:=self;
caption:="OK!!!";
left:=29;
top:=40;
onClick:=NewDown;
end;
end;

procedure TForm1.NewDown(Sender: TObject);
begin
Form1.Close;
end;

← →
kronprince © (2002-08-13 13:06) [3]

- Блин :) - ну ты понял да ???

with TButton.Create(self) do begin
Parent:=Form1;
// всякая разная фигня
end;

← →
Skier © (2002-08-13 13:15) [4]

>AlexQ
Хм. Вроде всё правильно... А что собственно не получается ?

← →
Кулюкин Олег © (2002-08-13 14:05) [5]

Королевства Delphi
Раздел Hello World!
Статья "Жизнь и смерть в режиме run-time"
http://www.delphikingdom.com/helloworld/runtime_comp.htm

Почитайте
а) статью на этом сайте про создание компонент в run-time
б) статью Елены Филиповой "Жизнь и смерть в режиме run-time" на сайте "Королевство дельфи". Только не спрашивайте адрес, я знаю только один - ya.ru

← →
Mike Kouzmine (2002-08-13 14:22) [7]

type TNotifyEvent = procedure (Sender: TObject) of object;
property OnClick: TNotifyEvent;

Как создать свой Button ч/з код. Найти похожие ветки