Drag & Drop über Frames

[omata]

Das sollte kein Problem sein...

Delphi-Quellcode:

procedure TFrame.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  accept:=(Source is TListBox);
end;

procedure TFrame.TreeViewDragDrop(Sender, Source: TObject; X, Y: Integer);
var ListBox:TListBox;
begin
  if Source is TListBox then begin
    ListBox:=TListBox(Source);
    showmessage(ListBox.Name);
  end;
end;

Gruss
Thorsten