Problem mit Formularen

[CalganX]

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:

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:

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

[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;