Button Image bei Drag & Drop

[DeddyH]

Ich vermute, himitsu hat das hier gemeint:

Delphi-Quellcode:

procedure TFormTest.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const
  SC_DRAGMOVE = $F012;
begin
  if (ssLeft in Shift) and (Sender is TWinControl) then
    begin
      ReleaseCapture;
      TWinControl(Sender).Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    end;
end;