Komponente vertikal verschieben

[Delphi Star]

Ich habe es selbst geschafft:

Delphi-Quellcode:

var mouseposi: integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  bitbtn1.top:=Mouse.CursorPos.y-top-(height-clientheight)-mouseposi;
end;

procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mouseposi:=Mouse.CursorPos.y-(height-clientheight)-top-bitbtn1.Top;
timer1.Enabled:=true;
end;

procedure TForm1.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
timer1.Enabled:=false;
end;

[edit=Admin] Mfg, Daniel[/edit]