Hi,
ich habe das Problem, dass das Hauptformular (nicht das H.-Form. von der App) keinen bestimmten Namen hat ('Form'+eine Zahl), dass Problem ist, dass beim Aufrufen eines Dialogs, nur im aktuellen Formular (von die Anfrage gesendet wurde) die Aktion ausgeführt werden soll... Ich habe versucht das mit dem Sender zu versuchen:

markieren

Code:

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

(Das Hauptformular ist immer deklariert als NewForm: TForm1)

Dass klappt auch eigentlich ganz gut, aber dann bleibt er hängen:

markieren

Code:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInvalidCast with message 'Invalid class typecast'. Process stopped. Use Step or Run to continue.
---------------------------
OK  Help  
---------------------------

Hat jemand Hilfe?

Chris

Hallo Chris,

in deinem Code:

markieren

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:

markieren

Code:

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