Thema: Delphi Problem mit Formularen

Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#2
  Alt 2. Sep 2002, 21:12
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;
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat