Drag and Drop im Webbrowser deaktivieren

[torud]

Hallo Shmia,

leider brachte das nix. Hier mal meine Routine:

Delphi-Quellcode:

procedure TForm1.web_cisBeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  ShowMessage(url+chr(13)+targetframename);
  if (ExtractFileExt(url)='.jpg') or (ExtractFileExt(url)='.gif') then
    Exit;
  StatusBar1.Panels[0].Text:=ExtractFileName(url);
  StatusBar1.Panels[2].Text:=PostData;
  if pDisp = web_cis.DefaultInterface then
     LockWindowUpdate(Handle);

end;

Das Komische ist, dass das Problem nicht bei allen Bildern auftritt. Schwerpunktmässig bei XML-Seiten, die durch XSL formatiert wurden...Das Drag&Drop-Problem tritt im übrigen nicht nur bei Bildern auf, sondern auch bei Links...

Das Problem scheint auch zu sein, dass dieses Ereignis überhaupt nicht ausgelöst wird, denn meine Showmessage ganz oben wurde mir nur angezeigt, wenn ich "normal" navigiert habe. Wenn ich aber einen Link oder Bild (es funktioniert wirklich nicht bei allen) gezogen und fallen gelassen habe, dann kam die Messagebox nicht und der Webbrowser verhielt sich so, als ob er von aussen etwas übergeben bekommen hat und zeigt dies dann auch als TOP an.