Hogyan kell kezelni az onclick esemény programozott létrehozott gomb

előző ◈ a következő

Hogyan kell kezelni az esemény onclick programozottan létre egy gombot?

Minden jó nap !!
Hogyan kell kezelni az esemény onclick programozottan létre egy gombot?
Cheto keresett itt a fórumon, nenashel. Emlékszem, hogy volt egy ilyen vita.






Emlékszem, hogy létre kell hozni az objektum típusú eljárással, majd állítsa be az eljárást az objektum, majd adjon ennek az eljárásnak az onclick esemény programozottan létre egy gombot ..
Poazhlta segítség, köszönöm! "


> Ezután hozzon létre ezt az objektumot eljárás

Esemény lehet rendelni egy létező eljárás, IMHO.

felhasználások
# XA0, a Windows, az Üzenetek, SysUtils, Változatok, osztályok, grafika, vezérlők, Forms,
# XA0; Párbeszédpanelek, stdctrls;

típus
# XA0; TForm1 = osztály (TForm)
# XA0; # XA0; eljárással MyClick (Sender: TObject);
# XA0; # XA0; eljárással FormCreate (Sender: TObject);
# XA0; magán-
# XA0; # XA0;
# XA0, köz-
# XA0; # XA0;
# XA0; end;

var
# XA0; Form1: TForm1;

eljárás TForm1.FormCreate (Sender: TObject);
kezdődik
# XA0, azzal TButton.Create (ön) do
# XA0; # XA0; kezdődik
# XA0; # XA0; # XA0; Szülő: = Self;
# XA0; # XA0; # XA0; OnClick: = MyClick;
# XA0; # XA0; # XA0; Név: = "b1";
# XA0; # XA0; végén;







eljárás TForm1.MyClick (Sender: TObject);
kezdődik
# XA0; ShowMessage ( "Hello világ én vagyok az új gomb!");
végén;

felhasználások
# XA0, a Windows, az Üzenetek, SysUtils, Változatok, osztályok, grafika, vezérlők, Forms,
# XA0; Párbeszédpanelek, StdCtrls;

típus
# XA0; TForm1 = osztály (TForm)
# XA0; # XA0; Button1: TButton;
# XA0; # XA0; eljárással Button1Click (Sender: TObject);
# XA0; # XA0; eljárással MyButtonClick (Sender: TObject);
# XA0; magán-
# XA0; # XA0;
# XA0, köz-
# XA0; # XA0;
# XA0; end;

var
# XA0; Form1: TForm1;

eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
# XA0, azzal TButton.Create (Self) do
# XA0; kezdődik
# XA0; # XA0; SetBounds (10, 10, 100, 25);
# XA0; # XA0; Caption: = "A" gombot;
# XA0; # XA0; OnClick: = MyButtonClick;
# XA0; # XA0; Szülő: = Self;
# XA0; végén;
végén;

eljárás TForm1.MyButtonClick (Sender: TObject);
kezdődik
# XA0; ShowMessage (TButton (Sender) .Caption + "Click.");
végén;


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

> Ne feledje, hogy létre kell hozni az objektum típusú eljárással, majd
> Kialakítani egy eljárást erre a tárgy,


írja TMyButton = osztály (TButton)
# XA0; eljárás Click; felülbírálhatja;
# XA0; ..
végén;

eljárás TMyButton.Click;
kezdődik
# XA0; örökölt;
# XA0; MyClick;
végén;

És nem kell hozzá semmit.
--
Üdvözlettel, LVT.

> Hogyan kell kezelni az esemény onclick programozottan létre egy gombot?

Higgye el, ez sokkal könnyebb, mint hogy jelöljön ki egy hardver esemény létrehozása gombra :)

> Higgye el, sokkal könnyebb, mint hogy jelöljön ki egy eseményt
> Létrehozása gombra hardver :)

De miért? Vezérlőpult - Teljesítmény - és hozzá bármi. )


> De miért? Vezérlőpult - Teljesítmény - jogutódai
> Valahogy. )

Van egyfajta csatlakoztatott eszköz USB-n keresztül. A készülék egy „Hardver” gombra. # XA0; :)




előző ◈ a következő