bewegbare Toolbar und Menue

[BullsEye]

´Weiß net ob du's noch suchst aber :

Delphi-Quellcode:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   TWincontrol(sender).perform(WM_LBUTTONUP, 0, 0);
   TWincontrol(sender).Perform(WM_SysCommand,SC_MOVE+2,2);
end;