Zitat von
omata:
Das sollte kein Problem sein...
Delphi-Quellcode:
procedure form1.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
accept:=(Source is TListBox);
end;
procedure form1.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
das sagst du ...
nur hier:
Delphi-Quellcode:
procedure form1.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
accept:=(Source is TListBox); // <-- hier
end;
kommt leider nie true an
die listbox liegt in frame, nicht das tTreeView...