Variable auf Form setzen

[Delphi-Narr]

Hallo,
ich habe eine Variable F:TForm und einen String S mit dem Namen eines Formulars der Anwendung.
Jetzt möchte ich F auf das Formular mit dem Namen S setzen. Wie mach ich das?


Edit:
Hier ein Beispiel wie ich das meine:

Delphi-Quellcode:

var i:integer;
    F:TForm;
begin
     i:=2;
     F:='Form'+IntToStr(i);
     
     //Und ich möchte hier "Form2" angezeigt bekommen
     showmessage(F.name);
end;

Viele Grüße!

[mkinzler]

Delphi-Quellcode:

f := Findcomponent(s);

[Delphi-Narr]

:wall:

So einfach... Dachte das gilt nur für Buttons etc...
Danke!

Delphi-Quellcode:

F:=Findcomponent(Formname) as TForm;

[mkinzler]

Auch ein Formular ist eine Komponente

[Delphi-Narr]

Klappt aber trotzdem irgendwie nicht...

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var F:TForm;
begin
     F:=FindComponent('Form'+IntToStr(4)) as TForm;
     showmessage(F.name);
end;

Gibt eine Fehlermeldung (Zugriffsverletzung bei Adresse...)

[mkinzler]

Heisst die Form auch Form4?

[Delphi-Narr]

Ja...

Delphi-Quellcode:

showmessage(Form4.name);

klappt wunderbar...

Edit:
Fehler gefunden:

Application.findcomponent muss es heißen...

[c4rtm4n]

Um eventuelle Zugiffsschutzverletzungen entgegenzuwirken könnte man vielleicht noch folgendes machen:

Delphi-Quellcode:

...

var
  c: TComponent;
begin
  c := FindComponent('Form4');

  if not Assigned(c) then
    exit;

  if (c is TForm) then
    ShowMessage(TForm(c).Name);
end;

Gruß

[mkinzler]

Von welcher Klasse nimmst du die Methode?

Delphi-Quellcode:

f := Application.FindComponent( 'Form4') as TForm;

Alternativ kannst du auch noch Screen.Forms[] durchgehen