Zitat von
ily.94:
ist es auch möglich das ganze in einen button zu packen ?
Folgendes ins OnMouseMove oder OnMouseDown (ist egal) des Buttons:
Delphi-Quellcode:
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;