Zitat von
scp:
Hmmmm...
1. Bei mir gibt es kein Modalresult = mrClose (D7 Personal), sondern nur folgendes:
2. Verwende ich Form2.ShowModal lässt sich in das ListView von Form1 gar nichts reindroppen
3. Verwende ich Form2.Show klappt das Drag'n'Drop und das schliessen ohne Probleme
4. Wast steht bei dir im TForm1.ListView1DragOver()?
Zu 1.) Jep, stimmt, Kind ist bkClose, Modalresult ist mrNone
zu 2-3.) Das ListView ist auf Form2, nicht auf Form1....
zu 4.)
Delphi-Quellcode:
procedure TForm2.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var a : string;
begin
Accept := Source is TShellTreeView;
end;