Verificați dacă butonul este apăsat

verificați dacă este apăsat butonul

Cum pot verifica dacă Butonul1 este apăsat în procedură?
dacă apăsați Button1 atunci acțiuni și astfel de acțiuni
dacă apăsați butonul2, atunci astfel de acțiuni






altfel astfel de acțiuni
Mulțumesc.

dar poate direct, și nu prin anus?

a apăsat butonul1 - în dispozitivul de tratare a efectuat anumite acțiuni.
a făcut clic pe buton - în manipulator s-au făcut alte acțiuni.

cu atât mai mult că utilizatorul este obișnuit cu faptul că făcând clic pe buton, va primi o reacție la aceasta doar după eliberarea butonului și cursorul mouse-ului în acest moment este deasupra butonului.

1. Cum vă imaginați procesul de clic simultan pe două butoane simultan?

2. Butonul poate fi apăsat numai în mânerul propriului eveniment OnClick.

3. Aproape orice componentă are OnMouseDown și OnMouseUp, unde poate fi setată în consecință. steaguri.

TForm1 = clasa (TForm)
# xA0; # xA0; Buton1: TButton;
# xA0; # xA0; Buton2: TButton;
# xA0; # xA0; procedura Button1Click (Expeditor: TObject);
# xA0; # xA0; procedura Button2Click (Expeditor: TObject);
# xA0; privat # xA0; # xA0;
# xA0; # xA0; s: șir;
# xA0; #procedura proc (expeditor: TObject);
# xA0; public # xA0; # xA0; # xA0;
# xA0; sfârșitul;

var
# xA0; Form1: TForm1;







procedura TForm1.Button1Click (expeditor: TObject);
începe
# xA0; proc (Expeditor);
se încheie;

procedura TForm1.Button2Click (expeditor: TObject);
începe
# xA0; proc (Expeditor);
se încheie;

procedura TForm1.proc;
începe
# xA0; dacă Sender este TButton atunci
# xA0; # xA0; s: = TButton (Expeditor) .Numele;
# xA0; dacă s = "Button1" atunci
# xA0; # xA0; ShowMessage ("butonul1");
# xA0; dacă s = "Button2" atunci
# xA0; # xA0; ShowMessage ("Button2") altceva
# xA0; # xA0; ShowMessage ("# 237; # 229; butonul2");
se încheie;

un fel ca ei au cerut și a spus așa :)

Apoi, el va striga că el a fost deja prevăzut cu codul, iar restul sunt impudenți și nu inundă cazul.

Mi se pare că fluxul actual de "toți începătorii" este una și aceeași persoană.


> # 237; # 229; Button2

Și ce este "# 237; # 229;"? A trebuit să înregistrez din interfața Web.

Cel mai probabil, această kryakozyabromogram a cuvântului "nu"


> Și ce este "# 237; # 229;"?

= "nu"
a fost necesar "să nu" scrieți sau să aveți un aspect care să traducă :)

Locuiți într-o țară în care tot ceea ce se face rău se face pentru dvs. și tot ceea ce se face bine este adus din străinătate. De ce crezi că este așa?

Aceasta este o problemă toate aplicațiile neyukodovskih în Vendian, pentru că programatorii nu știu / uita că clipboard împreună cu textul care urmează să fie transmis identificator de localizare. Venda, care nu știe nimic despre codarea adevărată a textului, împinge identificatorul în funcție de limba de intrare curentă.


> Ce crezi - de ce?

Pentru că unii (nu voi arata cu degetul) urca pentru a face ceva) nu este capabil să-l facă b) având în nici o dorință de a nici măcar suma minimă pentru a înțelege), crezând că toți trebuie să știe / să poată altora.


> Ce crezi - de ce?

Și înainte de programare le permit oamenilor bine pregătiți

Utilizați acțiunea (listă) și conectați-o la barele de instrumente, meniurile și recuzele nyashka.

Memorie: 0,76 MB
Durată: 0,029 secunde







Articole similare

Pagina anterioară

Pagina următoare

Trimiteți-le prietenilor: