Okay so hab ich das gemacht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.visible := false;
Webbrowser1.OleObject.document.forms.item(0).elements.item('
Login').value := Edit1.Text;
Webbrowser1.OleObject.document.forms.item(0).elements.item('
Password').value := Edit2.Text;
Webbrowser1.OleObject.document.forms.item(1).Submit;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('
www.MEINESEITE.net');
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
WebBrowser1.Navigate('
www.MEINESEITE.net');
end;
end.
Aber wenn ich es starte,hängt das Programm.Wahrscheinlich startet sich die Seite jedesmal neu oder so keine Ahnung woran es liegt.