Einzelnen Beitrag anzeigen

ebber

Registriert seit: 31. Okt 2006
243 Beiträge
 
#1

JvBitmapButton zur Laufzeit verschieben

  Alt 11. Jun 2007, 15:48
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
  Mit Zitat antworten Zitat