Drag und Drop

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