JvBitmapButton zur Laufzeit verschieben

[ebber]

Hallo

ich habe das gefunden um einen Button zu verschieben

Delphi-Quellcode:

procedure TForm1.BTanMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
   SC_DragMove = $F012;
begin

   ReleaseCapture;
   SendMessage(TWinControl(Sender).Handle,WM_SysCommand, SC_DragMove, 0);

end;

ich möchte das jetzt aber mit einem JvBitmapbutton machen. Was muss ich da verändern oder geht das so nicht ? Weil so gehts nicht.

MfG

[marabu]

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

[ebber]

Danke. So gehts :thumb: