Hallo zusammen,
bin gerade dabei eine Webanwendung zu schreiben.
Wenn ich auf meinen "Verbinde" Button klicke, öffnet er die gewünschte Seite aus dem edit Feld im Webbrowser.
Delphi-Quellcode:
procedure TForm1.tbVerbindenClick(Sender: TObject);
begin
if cxedtAdresse.Text <> '' then
begin
EmbeddedWb1.Navigate(cxedtAdresse.Text);
tbTrennen.Enabled := True;
end
else
MessageDlg('Du musst erst eine Internetadresse eintragen', mtInformation, [mbOK], 0, mbOk);
end;
Wenn ich dann "verbunden" bin und das Programm über das X oben rechts schließe, erhalte ich die altbekannte Windowsfehlermeldung "Das Programm funktioniert nicht mehr" ....
Habe folgendes schon probiert:
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
EmbeddedWb1.Free;
EmbeddedWb1.Stop;
end;
aber knallt immer noch, hat jmd eine Idee, an was das liegt oder was ich noch tun muss?