|
Registriert seit: 4. Dez 2011
123 Beiträge
|
AW: TWebBrowser if then Problem
25. Dez 2011, 11:32
Danke aber irgendwie fehlt mir noch was im code.
procedure TForm1.Action20Execute(Sender: TObject);
begin
if not VarIsNull(WebBrowser1.OleObject.document.forms.ite m(0).elements.item('Operation')) then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('bemerkung').value:='erledigt'; // soll er diese funktion ausführen.
end;
end.
ich muß glaub ich noch die function VarIsNull einbinden, wie geht das ?
|