Как да се справят с едно събитие 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; :)