Cum gestionez evenimentul ONCLICK al unui buton creat programat?
Bună ziua tuturor !!
Cum gestionez evenimentul ONCLICK al unui buton creat programat?
Cheto a căutat aici pe forum, nenashel. Îmi amintesc că a existat o astfel de discuție.
Îmi amintesc că este necesar să creați un obiect cu o procedură în TYPE și apoi să creați o procedură pentru acest obiect și apoi să atribuiți această procedură evenimentului ONCLICK al butonului program care a fost creat.
Ajutor pozhalta, mulțumesc "!
> apoi creați procedura pentru acest obiect
Un eveniment poate fi atribuit unei proceduri existente, IMHO.
utilizări
# xA0; Windows, Mesaje, SysUtils, Variante, Clase, Grafică, Controale, Formulare,
# xA0; Dialoguri, stdctrls;
tip
# xA0; TForm1 = clasa (TForm)
# xA0; # xA0; procedura MyClick (expeditor: TObject);
# xA0; # xA0; procedura FormCreate (expeditor: TObject);
# xA0; privat
# xA0; # xA0;
# xA0; public
# xA0; # xA0;
# xA0; sfârșitul;
var
# xA0; Form1: TForm1;
procedura TForm1.FormCreate (expeditor: TObject);
începe
# xA0; cu TButton.Create (auto) face
# xA0; # xA0; începe
# xA0; # xA0; # xA0; Părinte: = Sine;
# xA0; # xA0; # xA0; OnClick: = MyClick;
# xA0; # xA0; # xA0; Nume: = "b1";
# xA0; # xA0; se încheie;
procedura TForm1.MyClick (expeditor: TObject);
începe
# xA0; showmessage ("Salut lume, sunt un nou buton!");
se încheie;
utilizări
# xA0; Windows, Mesaje, SysUtils, Variante, Clase, Grafică, Controale, Formulare,
# xA0; Dialoguri, StdCtrls;
tip
# xA0; TForm1 = clasa (TForm)
# xA0; # xA0; Buton1: TButton;
# xA0; # xA0; procedura Button1Click (Expeditor: TObject);
# xA0; # xA0; procedura MyButtonClick (expeditor: TObject);
# xA0; privat
# xA0; # xA0;
# xA0; public
# xA0; # xA0;
# xA0; sfârșitul;
var
# xA0; Form1: TForm1;
procedura TForm1.Button1Click (expeditor: TObject);
începe
# xA0; cu TButton.Create (Self) faci
# xA0; începe
# xA0; # xA0; SetBounds (10, 10, 100, 25);
# xA0; # xA0; Caption: = "Butonul meu";
# xA0; # xA0; OnClick: = MyButtonClick;
# xA0; # xA0; Părinte: = Sine;
# xA0; se încheie;
se încheie;
procedura TForm1.MyButtonClick (expeditor: TObject);
începe
#XA0; ShowMessage (TButton (Sender) .Caption + "Faceți clic pe");
se încheie;
> Lamer666 # xA0; (15.10.07 13:11) # xA0;
> Îmi amintesc că este necesar să creați un obiect cu o procedură în TYPE și apoi
> creați o procedură pentru acest obiect,
tip TMyButton = clasă (TButton)
# xA0; Procedura Faceți clic pe; suprascrie;
# xA0; ..
se încheie;
procedura TMyButton.Click;
începe
# xA0; moștenit;
# xA0; MyClick;
se încheie;
Și nimic nu va fi necesar.
--
Cu respect, LVT.
> Cum gestionez evenimentul ONCLICK al unui buton creat programat?
Vă asigur, este mult mai ușor decât atribuirea unui eveniment unui buton hardware creat :)
Vă asigur, este mult mai ușor decât atribuirea unui eveniment
> butonul hardware creat :)
Dar de ce? Panoul de control - Alimentare - și alocați-l după cum doriți. )
> Da, de ce? Panoul de control - Alimentare - și alocare
> orice. )
Există un dispozitiv conectat prin USB. Dispozitivul are un buton "hardware". # xA0; :)