Hogyan tedd fel a trackmouseeventet
hogyan lehet a TrackMouseEventt elhelyezni?
egy téma
valójában a függvény helyes végrehajtása nem üzenetek nem jönnek: (hogyan kell.
Írok
var
# xA0; tme. tagTRACKMOUSEEVENT;
.
# xA0; tme.cbSize: = sizeof (tagTRACKMOUSEEVENT);
# xA0; tme.dwFlags: = TME_QUERY vagy TME_HOVER vagy TME_LEAVE;
# xA0; tme.hwndTrack: = self.Handle;
# xA0; tme.dwHoverTime: = 50; // HOVER_DEFAULT;
# xA0, ha nem TrackMouseEvent (tme), akkor
# xA0; # xA0; somemessage.
# xA0;
aztán megpróbáltam
eljárás WMMouseHover (var üzenet, TMessage), üzenet WM_MOUSEHOVER;
# xA0; # xA0; eljárás WMMouseLeave (var Message. TMessage); üzenet WM_MOUSELEAVE;
de éppen így
eljárás TForm1.NewProc (var Message: TMessage);
kezdődik
# xA0; # xA0; ha Message.Msg = WM_MOUSEHOVER, akkor
# xA0; # xA0; Caption: = "lebeg" más
# xA0; # xA0; ha Message.Msg = WM_MOUSELEAVE, akkor
# xA0; # xA0; Caption: = "szabadság";
# xA0; # xA0; # xA0;
OldProc (Message);
végén;
És NIPHIGA! = (és ez nem az, amit csinálok.
És hová helyezi? Itt az ötlet az, hogy mi az, ha az egeret az ablak fölé mozgatod, mindig a TME-t kell a mozgáskezelőben hívni, akkor az egér elhagyja az ablakot. Amikor az egér belép az ablakon, az üzenet jön.
Egy minta. Biztosan nem vagyok teljesen félénk, de eddig csak feküdtem, és csak akkor, ha átváltok a gyermek és az ablak között :(
Láttam a melkoosofta-t a kőolajbázisban, ahogy a 95-ös és a régi nt. Emulált. De torzulások nélkül teheted?
Memória: 0,72 MB
Időzítés: 0,272 másodperc