Egér kurzor
Egér kurzor
Miért az eljárás
eljárás TForm1.FormMouseDown (Feladó: TObject; Gomb: TMouseButton;
# xA0; Shift: TShiftState; X, Y: Integer);
kezdődik
Kurzor: = crHourGlass;
végén;
megváltoztatja az egérmutatót csak akkor, ha az egérmutató megérkezett?
Köszönöm előre.
> Kurzor: = crHourGlass;
És ha megpróbálsz írni
Screen.Cursor: = crHourGlass;
> Miért az eljárás
> eljárás TForm1.FormMouseDown (Feladó: TObject; Gomb:
> TMouseButton;
> # xA0; Shift: TShiftState; X, Y: Integer);
> kezdeni
> Kurzor: = crHourGlass;
> vég;
> az egérkurzort csak akkor változtatja meg, ha az egérmutató megérkezett?
Nyilvánvaló, hogy a Delphi modulok szövegei hibásak. Vegye figyelembe, hogy a kurzor az egér felengedése után csak a bal oldali gomb megnyomásakor változik. A középső és a jobb oldalon azonnal változik.
És ha megpróbálsz írni
> Screen.Cursor: = crHourGlass;
Segít. Van egy másik lehetőség, bonyolultabb: az eseménykezelő felülbírálása WM_LEFTBUTTONDOWN:
egység Unit1;
felhasználások
# xA0, Windows, Üzenetek, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
típus
# xA0; TForm1 = osztály (TForm)
# xA0; privát
# xA0; # xA0; eljárás OnLeftButtonDown (var Msg: TMsg); üzenet WM_LBUTTONDOWN;
# xA0; nyilvános
# xA0; # xA0;
# xA0; vége;
var
# xA0; Form1: TForm1;
eljárás TForm1.OnLeftButtonDown (var Msg: TMsg);
kezdődik
# xA0; kurzor: = crHourGlass;
végén;
> Úgy tűnik, a Delphi modulok szövegei hibásak. fizet
> vegye figyelembe, hogy a kurzor az egér felszabadítása után változik
> a bal gombbal. A középső és a jobb oldalon azonnal változik.
>
>
Ez alig hiba. Inkább az a kérdés, hogy a szabvány bal gombját szigorúan csak a "kattintott" vagy "kattintott" vezérlőkön használják. De a megfelelő (nem tudok semmit a középsőről).
Egyébként különbség van e két lehetőség között. Tegyük fel, hogy a TButton gomb az űrlapra kerül. Ha a Screen.Cursor: = crHourGlass elemet használja, akkor a kurzor a formanyomtatvány felett és a gomb felett is megjelenik. Ha a fenti módszert a kezelő felülbírálására használja, a kurzor csak az űrlapon változik, a gomb fölött ugyanaz marad.
De a megfelelő (nem tudok semmit a középsőről).
Ez egy egér kerék. Kattinthatnak is.
A kerék egy kerék. Semmi más, mint a középső gomb mechanikus hozzáállása.
Screen.Cursor: = crHourGlass; Ez segített. Köszönöm mindenkinek.