Drag & Drop über Frames

[bitsetter]

Dann lass dir doch mal zum Test den Namen des Objektes anzeigen.

Delphi-Quellcode:

procedure form1.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  ShowMessage(Source.ClassName);
end;