01.01.2011, 19:56
|
|
Продвинутый
|
|
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
|
|
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure Click(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Click(Sender: TObject);
begin
ShowMessage('Вы нажали на кнопку.');
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Btn: TButton;
begin
Btn := TButton.Create(Form1);
With Btn do begin
parent:=Form1;
caption:='button';
OnClick := form1.Click;
end;
end;
end.
ЗЫ просто поищи в гугле информацию о создании компонент в ран тайме...
__________________
Помогаю за Спасибо
|