Drag und Drop

[Jerry]

Hallo an alle Delphi Interessierten

Ich stosse mir gerade die Hörner an Drag and Drop ab...
Aus der Delphi Hilfe werde ich auch nicht ganz schlau.

Zu meinem Problem:

Normales Delphi Form, darauf Panel1 und Panel2.

Panel1 mit einem Edit Feld und Group Box.

Wie kann ich per Drag and Drop die Group-Box (mit Inhalt Edit Feld) per Drag und Drop auf Panel2 verschieben?

Ich habe mich hier wirklich schon durchgelesen, aber nichts passendes gefunden.

Danke für Eure Hilfe.

Grüsse vom Bodensee.

Jerry

[RavenIV]

Zitat:

Zitat von Jerry

Wie kann ich per Drag and Drop die Group-Box (mit Inhalt Edit Feld) per Drag und Drop auf Panel2 verschieben?

willst du das zur Designzeit oder zur Laufzeit machen?

[Jerry]

Zu Laufzeit

Hier habe ich mal einen TestCode, bin ich damit auf dem richtigen Weg?

Delphi-Quellcode:

procedure TForm1.GroupBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := True;
end;

procedure TForm1.PanelEx2DockOver(Sender: TObject; Source: TDragDockObject;
  X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
  accept := True;
end;

procedure TForm1.PanelEx2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source is TGroupBox then accept := true;
end;

procedure TForm1.PanelEx2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
   with PanelEx2 do
   begin
    if Source is TGroupBox then
    begin
      GroupBox1.Parent := PanelEx2;   // hier ist der eigentliche Drag und Drop Befehl...
      GroupBox1.Top :=  16;
    end;
   end;
    end;
end.

[Sidorion]

Die Docks kannste weglassen, die Drags simmen im Prinzip, die GroupBox brauch den DragMode: dmAutomatic