Panel's und andere Objekte verschieben

[RobertS]

Hallo,

ich bin grade an einem Spiel das eine Funkion beinhalten soll, die es möglich macht Panels auf ein Ziel zu verschieben.

Ich habe zur Zeit das mit einer Windows API gelöst, aber das Problem bei der ist das ich nur den Event "OnMouseMove" zurück bekomme und kann somit nocht viel Einfluss auf den User nehmen.

Gibt es noch andere Möglichkeiten Panels zur Laufzeit zu verschieben OHNE die API zu benutzen?

Danke schonmal.

[APP]

Hallo,

schau mal unter How to click and move components at runtime. bei Borland nach :)

[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;

[RobertS]

Boah iss ja der Hammer.

Funzt super, Ich danke dir sehr!!

[Luckie]

Zitat:

Zitat von RobertS

Boah iss ja der Hammer.

:shock:

Für so einen Pipifax-Code? :roll: