oder du machst es so, dann besteht nicht mal mehr die chance aus dem fenster rauszukommen, und funktioniert auch wunderbar
Delphi-Quellcode:
procedure TFormX.ButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Button.Handle,WM_SysCommand,$f012,0);
end;