Как да се справят с едно събитие OnClick създавате програмно един бутон?

Всички добър ден !!
Как да се справят с едно събитие OnClick създавате програмно един бутон?
Хето търсене тук във форума, nenashel. Спомням си, че имаше такава дискусия.
Спомням си, че трябва да се създаде в TYPE обект на процедурата, а след това се създаде по реда на този обект, и след това да зададете тази процедура OnClick събитие създавате програмно бутон ..
Poazhlta помощ, благодаря ти! "

> След това създайте тази процедура обект

Събитията могат да бъдат причислени към съществуваща процедура, IMHO.

употреби
# XA0; Windows, съобщения, SysUtils, варианти, Курсове, графики, управление, контролните форми,
# XA0; диалози, stdctrls;

тип
# XA0; TForm1 = клас (TForm)
# XA0; # XA0; процедура MyClick (Sender: TObject);
# XA0; # XA0; процедура FormCreate (Sender: TObject);
# XA0; частен
# XA0; # XA0;
# XA0; обществен
# XA0; # XA0;
# XA0; край;

Var
# XA0; Form1: TForm1;

процедура TForm1.FormCreate (Sender: TObject);
започвам
# XA0; с TButton.Create (самостоятелно) направи
# XA0; # XA0; започвам
# XA0; # XA0; # XA0; Родител: = Self;
# XA0; # XA0; # XA0; OnClick: = MyClick;
# XA0; # XA0; # XA0; Име: = "b1";
# XA0; # XA0; приключи;

процедура TForm1.MyClick (Sender: TObject);
започвам
# XA0; showmessage ( "Здравей, свят аз съм новия бутон!");
приключи;

употреби
# XA0; Windows, съобщения, SysUtils, варианти, Курсове, графики, управление, контролните форми,
# XA0; диалози, StdCtrls;

тип
# XA0; TForm1 = клас (TForm)
# XA0; # XA0; Button1: TButton;
# XA0; # XA0; процедура Button1Click (Sender: TObject);
# XA0; # XA0; процедура MyButtonClick (Sender: TObject);
# XA0; частен
# XA0; # XA0;
# XA0; обществен
# XA0; # XA0;
# XA0; край;

Var
# XA0; Form1: TForm1;

процедура TForm1.Button1Click (Sender: TObject);
започвам
# XA0; с TButton.Create (Self) направи
# XA0; започвам
# XA0; # XA0; SetBounds (10, 10, 100, 25);
# XA0; # XA0; Надпис: = "My Button";
# XA0; # XA0; OnClick: = MyButtonClick;
# XA0; # XA0; Родител: = Self;
# XA0; приключи;
приключи;

процедура TForm1.MyButtonClick (Sender: TObject);
започвам
# XA0; ShowMessage (TButton (Sender) .Caption + "Click".);
приключи;

> Lamer666 # XA0; (15.10.07 13:11) # XA0;

> Не забравяйте, че трябва да се създаде в обекта ВИД на процедурата, а след това
> За да създадете процедура за този обект,


Типове TMyButton = клас (TButton)
# XA0; процедура Click; отменят;
# XA0; ..
приключи;

процедура TMyButton.Click;
започвам
# XA0; наследствено;
# XA0; MyClick;
приключи;

И няма нужда да се възлага нищо.
--
С уважение, LVT.

> Как да се справят с едно събитие OnClick създавате програмно един бутон?

Уверявам ви, че е много по-лесно, отколкото да се назначи хардуер събитие Създаване на бутон :)

> Мога да ви уверя, че е много по-лесно, отколкото да назначи събитие
> Създаване на хардуерен бутон :)

Но защо? Control Panel - Power - и възлага каквото. )

> Но защо? Control Panel - Power - и правоприемници
> Някакъв начин. )

Има един вид устройство, което се свързва чрез USB. На устройството е бутона "Хардуер". # XA0; :)