Wie kann ich Objekte zur Laufzeit verschiebe?

[Aurus]

Hallo Rastaman

Wenn ich die Procedure einem Button zuweise geht das wie hier :


procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ReleaseCapture;
SendMessage(Button1.Handle, WM_SYSCOMMAND, $F012, 0);
end;


Nur was ich nicht begreife ist eine Scrollbar hat keine "MouseMove".

Also wie muss ich das dann zuweisen ?


Gruss

Aurus