Drag and Drop an Mauszeiger

[_frank_]

bei TWinControl-Ableitungen kann man es so machen:

Delphi-Quellcode:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if Button=mbLeft then begin
        ReleaseCapture;
        if sender is Tpanel then 
          (sender as Tpanel).Perform(WM_NCLBUTTONDOWN,HTcaption,0);
    end;
end;

wenns es das nicht ist, muss man mit mousedown/up und move die steuerung selber programmieren.

HTH Frank