hallo jap
das hatte wir schon versuche es mal so:
Delphi-Quellcode:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const sc_dragmove = $f012;
begin
ReleaseCapture;
TWinControl(Image1).perform(wm_syscommand,sc_dragmove, 0);
end;
hier für ein image und das ist glaub ich aus der code-library.
raik