![]() |
OnmouseMove message
hallo
kann mir jemand nen code posten dass ich bei onmousemove zwei verschiedene messages anzeigen lassen kann. zb linke seite, rechte seite oder oben, unten Danke für alle antworten HagBurt |
Re: OnmouseMove message
Ich hoffe mal, dass ich dich richtig verstanden hab...
Code:
Hier z.B. das OnMouseMove eines Panels. Als Caption bekommt es die Richtung.
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var MyText: string; begin MyText:= ''; if x[list=1]OldX then begin // ab nach Rechts MyText:= 'Rechts/'; end else begin // x bleibt MyText:= '-/'; end; if y[list=1]OldY then begin // ab nach unten MyText:= MyText+'Runter'; end else begin // y bleibt MyText:= MyText+'-'; end; Panel1.Caption:= MyText; OldX:= x; OldY:= y; end; OldX und OldY sind als Word im Private-Abschnitt des Forms deklariert. Grüsse! |
Re: OnmouseMove message
sorry das es so lange gedauert hat.
mußte erst wieder an delphi kommen..... das ist genau das, was ich gemeint hab. :thumb: echt klasse :thumb: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:26 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz