Benachrichtigng beim MouseMove

[luckystar85]

Moin, moin!!!

Ich habe ein Programm geschrieben, welches aus 2 Forms besteht. Das erste Formular ist besteht nur aus einem Image. Die 2. Form besteht auch aus einem Image und hat als Parent Form1. Jetzt habe ich es mit "http://www.dsdt.info/tipps/?id=17" geschafft das ich Form2 mit der Maus problemlos bewegen kann. Ist es irgendwie möglich das ich während des MouseMoves eine Windowsbotschaft abfangen kann die mir die aktuelle Position des Mauszeigers gibt. Ich möchte das in Form1 am unteren Bildrand die aktuelle Positon in die Statusbar geschrieben wird.
Könnt ihr mir da mal bitte einen Tipp geben?

[Marphy]

Hallo Michael,
die Mauszeigerposition kannst du ganz einfach über GetCursorPos() ermitteln:

Delphi-Quellcode:

var
  Pos: TPoint;
// ...
  GetCursorPos(Pos);

Gruß, Marco

[mr47]

TForm hat ein Event dass aufgerufen wird wenn sich die Maus bewegt

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

end;

x und y ist die Mausposition (0,0 ist oben links)

mfg

[luckystar85]

Mein Problem, war das ich nicht über das verschieben der Form über MouseMove nicht informiert wurde. Dafür fange ich jetzt die Botschaft WM_WindowPosChanged ab. Dann bekomme ich jetzt jeweils die aktuelle Position. Danke für eure Hilfe.