Hallo,
dieser Button hat kein window
handle, da er von TGraphicControl abgeleitet wurde. Setze ihn einfach auf ein Panel (AutoSize = True).
Delphi-Quellcode:
procedure TDemoForm.JvBitmapButtonMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;
begin
ReleaseCapture;
with Sender as TGraphicControl do
SendMessage(Parent.Handle, WM_SysCommand, SC_DragMove, 0);
end;
Grüße vom marabu