Cómo simular el dragdrop de un fichero a un TWebbrowser?

[ecfisa]

Hola cocute.

Descargué y probé tu archivo. Sólo tuve que quitar del uses ", SHDocVw,system.Win.registry;" que no reconoce mi Delphi 7 y algo de código del evento OnCreate (que no hace al funcionamiento del Drag & Drop) quedando así:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  webbrowser1.navigate('http://ivanrublev.me/kml/');
  FileListBox1.Directory:= ExtractFilePath(Application.ExeName);
end;

y tál como lo esperaba, funciona correctamente:



Así que el error debe estar el el código que te comenté, revisa esos puntos.

Saludos