Das Ereignis habe ich hinbekommen. Habe das aus der Hilfe übernommen.
ShowForm habe ich wieder rausgenommen!
ABER:
Jetzt wird mir das Formular in einer Schleife aufgerufen!
Wie bekomme ich den Dauerabruf hier raus?
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.navigate('
http://localhost/button.html');
end;
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
if CurDispatch =
nil then
CurDispatch := pDisp;
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
if (pDisp = CurDispatch)
then
begin
webbrowser1.OleObject.document.forms.item('
form1').elements.item('
textfield').value := '
hallo';
webbrowser1.OleObject.document.forms.item('
form1').elements.item('
submit').click;
CurDispatch :=
nil;
{die globale Variable leeren}
end;
end;