Problem mit Formularen

[MrSpock]

Hallo Chris,

in deinem Code:

Code:

procedure TOeffnenForm.Button1Click(Sender: TObject);
begin
  (Sender as TForm1).WebBrowser1.Navigate(URL.Text);
begin

muss das letzte begin natürlich ein end sein, aber das ist wohl nur ein Schreibfehler.

Wenn du sicher gehen willst, dass Sender in TForm1 gecastet werden kann, solltest du den is Operator benutzen und schreiben:

Code:

procedure TOeffnenForm.Button1Click(Sender: TObject);
begin
   if Sender is TForm1 then
     (Sender as TForm1).WebBrowser1.Navigate(URL.Text);
end;