OnmouseMove message

[HagBurt]

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

[mischerr]

Ich hoffe mal, dass ich dich richtig verstanden hab...

Code:

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;

Hier z.B. das OnMouseMove eines Panels. Als Caption bekommt es die Richtung.

OldX und OldY sind als Word im Private-Abschnitt des Forms deklariert.

Grüsse!

[HagBurt]

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: