MouseDown ohne MouseUp bei Form.ShowModal

[Dani]

Hi, du kannst das Problem auch ohne eine globale Variable lösen, indem du im OnMouseMove folgendes abfragst:

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 If ssLeft {linke Maustaste gedrückt?} in Shift then {verschieben...}
end;