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;