Panel verschieben

[Kullerkeks]

Ich will ein Panel mit der Maus "ziehen" oder es auf eine andere (bestimmte) Position verschieben (während der Laufzeit).
Ich wollte es mit drag&drop versuchen.
Kann mir vielleicht jemand sagen, wie das funktioniert oder wie eine allgemeine drag&drop-Anweisung im Quelltext aussieht? Habe schon in der Delphi-Hilfe nachgesehen aber das hat mir auch nicht geholfen.

Alternativen wären auch okay.
Es geht jedenfalls darum, ein Objekt an eine andere Position zu bringen.

Ich hoffe mir kann jemand helfen (!!)

[fkerber]

Hi!

Willkommen in der DP!

Du könntest mit den Ereignissen OnMouseDown, OnMouseMove und OnMouseUp arbeiten!
Schaue dir diese doch mal an.

Wenn du dann Fragen hast: nur her damit ;)


Ciao, Frederic

[Fussball-Robby]

Klickstu hier, ist eleganter :wink:

[Cyf]

http://www.blong.com/Conferences/Bor...dDrop/4114.htm

[Kullerkeks]

[quote="fkerber"]
[...]Du könntest mit den Ereignissen OnMouseDown, OnMouseMove und OnMouseUp arbeiten!
Schaue dir diese doch mal an.

Wenn du dann Fragen hast: nur her damit ;)
[...]

okay ^^

also deine antwort hilft mir nicht viel weiter. ich bräuchte mal ein konkretes beispiel, wie man sowas deklariert. will ein panel auf ein anderes verschieben (panel, image oder label - egal) aber finde nur beispiele mit edits oder so...

[Meflin]

Zitat:

Zitat von Kullerkeks

aber finde nur beispiele mit edits oder so...

Ja und? Das kannst du wirklich 1:1 auf Panels übertragen, solange es nur um verschieben geht ;)

[Kullerkeks]

nein es ging nicht, vermutlich weil da als beispiel klassen benutzt wurden...

[_frank_]

Zitat:

Zitat von fkerber

Du könntest mit den Ereignissen OnMouseDown, OnMouseMove und OnMouseUp arbeiten!

das hatten wir doch erst... ( http://www.delphipraxis.net/internal...t.php?t=153248 )

Gruß Frank

[Kullerkeks]

ja das ist so ähnlich, aber wieder mit klassen und mit images auf panels... der quelltext verwirrt mich :pale:

könntest du vllt. einfach ein beispiel schreiben, wie ich ein panel auf ein anderes "legen" kann?
(ich weiß nicht, ob es wichtig ist, dass da noch etwas drunter liegt!? also eine "scheibe" soll auf einen "stab" [türme von hanoi])

LG

[Larsi]

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
    begin
      ReleaseCapture;
      Panel1.Perform(WM_SYSCOMMAND,$F012,0);
    end;
end;

So müsste es auch gehen.