Nach MouseUp immer ein MouseMove, weshalb?

[Bjoerk]

Ist das bei euch auch so, daß nach MouseUp immer ein MouseMove kommt und auch beim Start der App, wenn der MouseCursor innerhalb des Canvas ist?

Delphi-Quellcode:

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Caption := Format('MouseDown %d %d',[X, X]);
end;

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Caption := Format('MouseMove %d %d',[X, X]);
end;

procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Caption := Format('MouseUp %d %d',[X, X]);
end;

[himitsu]

Jupp.

[Uwe Raabe]

Hier könnte die Erklärung stehen: Why do I get spurious WM_MOUSEMOVE messages?

[Bjoerk]

Ok. War mir nur aufgefallen weil ich gerade eine Polyline programmiere. Kann man aber auch anders machen als ich es vorhatte oder ein Flag setzen. Thanx!