TWebBrowser if then Problem

Thema durchsuchen

Ansicht

Themen-Optionen

TWebBrowser if then Problem

Ein Thema von klaus9 · begonnen am 24. Dez 2011 · letzter Beitrag vom 8. Jan 2012

Vorheriger Beitrag

Nächster Beitrag

klaus9

Registriert seit: 4. Dez 2011
123 Beiträge

#18

AW: TWebBrowser if then Problem

8. Jan 2012, 00:34

zusammenfalten · markieren

Delphi-Quellcode:

			
procedure TForm1.Button107Click(Sender: TObject);

begin

if VarIsNull(WebBrowser1.OleObject.Document.innerHTML ('<td>TelefonAnlagen</td>')) and

if VarIsNull(WebBrowser1.OleObject.Document.innerHTML ('11:59')) 

then

WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('eingabe').value:='fertig'; // soll er diese funktion ausführen.

end;