Drag and Drop im Webbrowser deaktivieren

[shmia]

"Canceln" nicht vergessen!!

Delphi-Quellcode:

procedure TForm1.web_cisBeforeNavigate2(Sender: TObject; 
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, 
  Headers: OleVariant; var Cancel: WordBool); 
var
   urlext : string;
begin 
  urlext := LowerCase(ExtractFileExt(url));
  if (urlext='.jpg') or (urlext='.gif') then 
  begin
     Cancel := True; // <== Good bye baby
     Exit; 
  end;
  StatusBar1.Panels[0].Text:=ExtractFileName(url); 
  StatusBar1.Panels[2].Text:=PostData; 
  if pDisp = web_cis.DefaultInterface then 
     LockWindowUpdate(Handle); 
end;