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

[Pseudemys Nelsoni]

hallo leute, danke für die antworten ^^


ich hab es mal mit:

Delphi-Quellcode:

var
  Form1: TForm1;
  isDown: boolean = false;
  stLeft, stTop: integer;

...

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  isDown := true;
  stTop := Y;
  stLeft := X;
end;

...

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

...

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if isDown then
  begin
    if Y > stTop then
      Button1.Top := Button1.top+1
    else if stTop > Y then
      Button1.Top := Button1.top-1;
    if X > stLeft then
      Button1.Left := Button1.Left+1
    else if stTop > X then
      Button1.Left := Button1.Left-1;
  end;
end;

versucht. Funktioniert zwar (einigermaßen), ist aber saaaaaaulahm, besonders wenn man die maus schnell bewegt, da komt der button kaum hinterher, gehts auch anders?