Panel's und andere Objekte verschieben

[Luckie]

Delphi-Quellcode:

var
  Form1: TForm1;
  xMouse, yMouse: DWORD;
  bDown : Boolean = FALSE;

implementation

{$R *.dfm}

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  xMouse := x;
  yMouse := y;
  bDown := TRUE;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if bDown then
  begin
    Panel1.Left := x+Panel1.Left-xMouse;
    Panel1.Top := y+Panel1.Top-yMouse;
  end;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  bDown := FALSE;
end;