Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как создать свой Button ч/з код. [D6, WinXP]

AlexQ © (2002-08-13 12:49:00)
Не могу создать баттон. пробовал по разному, неполучается.

Mike Kouzmine (2002-08-13 14:22:00) [1]
type TNotifyEvent = procedure (Sender: TObject) of object;
property OnClick: TNotifyEvent;

KSergey (2002-08-13 14:14:00) [2]
Почитайте
а) статью на этом сайте про создание компонент в run-time
б) статью Елены Филиповой "Жизнь и смерть в режиме run-time" на сайте "Королевство дельфи". Только не спрашивайте адрес, я знаю только один - ya.ru

Кулюкин Олег (2002-08-13 14:05:00) [3]
Королевства Delphi
Раздел Hello World!
Статья "Жизнь и смерть в режиме run-time"
http://www.delphikingdom.com/helloworld/runtime_comp.htm

Skier (2002-08-13 13:15:00) [4]
>AlexQ
Хм. Вроде всё правильно... А что собственно не получается ?

kronprince (2002-08-13 13:06:00) [5]
- Блин :) - ну ты понял да ???

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

Cr@sh (2002-08-13 13:04:00) [6]
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;

Skier (2002-08-13 12:56:00) [7]
>AlexQ
Покажи как пробовал ...

Наверх

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