Hallo!
Eigentlich dürfte es da doch keine Fallstricke geben. GetIE holt oder macht ein Browserfenster mit der entsprechenden
URL. Danach soll nur mal kurz ein Popupfenster eingeblendet werden. Irgendwie kommen diese Zeilen aber dem IE in die Quere. Danach kann man z.B. über das Menü nicht mehr Suchen oder die Schriftgröße ändern. Hat jemand eine Ahnung, woher das kommen und wie man es vermeiden könnte.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var pElement: OLEVariant;
tim: Cardinal;
pop: IHTMLPopUp;
IE: IWebBrowser2;
win: IHTMLWindow2;
begin
IE:=GetIE(Edit1.Text);
win:=(IE.Document as IHTMLDocument2).parentWindow;
pop:=(win as IHTMLWindow4).createPopup(emptyParam) as IHTMLPopup;
with (pop.document as IHTMLDocument2).body do
begin
style.backgroundColor:='aqua';
style.border:='solid black 1px';
innerText:='poppig';
end;
pElement:=(IE.Document as IHTMLDocument2).body;
pop.Show(200, 200, 60, 20, pElement);
tim:=GetTickCount;
while GetTickCount-tim<5000 do Application.ProcessMessages;
end;