Komponenten zur Laufzeit bewegen (wie delphi es z.b tut)

[SirThornberry]

Delphi-Quellcode:

procedure TJBPosSlider.fMouseDownProc(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  fIsMouseDown := True;
end;

procedure TJBPosSlider.fMouseUpProc(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  fIsMouseDown := False;
end;

procedure TJBPosSlider.fMouseMoveProc(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if fIsMouseDown then
  begin
    //Quelltext zum verschieben
  end;
end;