Fenster anhand Namen ansprechen

[erich.wanker]

Hallo,

ich hab ein Array mit Strings: Fensternamen (Form.name)

Kann ich irgendwie folgendes machen?

var mein_fenster : TForm;

Delphi-Quellcode:

Procedure TMain.tu was mit allen Fenstern ...

for i:0 to fensteranzahl-1 do
begin
 mein_fenster.create(self);
 mein_fenster.assign -> Tform(Fensternamen[i])    ????
 mein_fenster.left:= x;
 mein_fenster.free;
end;

Danke für Hinweise
Erich

[hoika]

Hallo,
sind das alles Fenster Deiner eigenen Anwendung?

[erich.wanker]

Ja .. alles eigene

P.S.:
ich hab vergessen zu schreiben - das es nicht um "Form.Left" geht - sondern jedes Fenster (welches sich in das Array einträgt) hat eine Public procedure "mach_dein_Ding" - die gestartet werden soll.

Ich dache mir, ich mach ein Array

Code:

fensterForm: Array[1..100] of TForm;

aber dann funktionierte folgendes Nicht

Delphi-Quellcode:

    for fensterschleife := 1 to fensteranzahl do
    begin
       fensterForm[fensterschleife].mach_dein_Ding;
    end;

[Zacherl]

Zitat von erich.wanker:

aber dann funktionierte folgendes Nicht

Inwiefern hat das nicht funktioniert? Die Vorgehensweise ist nämlich schon in Ordnung soweit.

[Jasocul]

Zitat von Zacherl:

Inwiefern hat das nicht funktioniert? Die Vorgehensweise ist nämlich schon in Ordnung soweit.

Kann so nicht funktionieren.
fensterForm[fensterschleife] ist vom Typ TForm. Dieser Typ kennt die Methode mach_dein_Ding einfach nicht.

[Zacherl]

Zitat von Jasocul:

Zitat von Zacherl:

Inwiefern hat das nicht funktioniert? Die Vorgehensweise ist nämlich schon in Ordnung soweit.

Kann so nicht funktionieren.
fensterForm[fensterschleife] ist vom Typ TForm. Dieser Typ kennt die Methode mach_dein_Ding einfach nicht.

Oh, ich ging davon aus - da der Rest des Beispiels auch in Pseudo-Form gehalten ist - dass schon die korrekte Basisklasse/Interface als Typ des Arrays verwendet wurde

In diesem Falle muss der TE entweder Erwähntes umsetzen, oder casten: (fensterForm[fensterschleife] as TMyForm).mach_dein_Ding;

[Jasocul]

Und wenn alles verschiedene Fenster sind (TForm1, TForm2, ...), wird es komplizierter.
Also brauchen wir mehr Input vom TE.

[Zacherl]

Zitat von Jasocul:

Und wenn alles verschiedene Fenster sind (TForm1, TForm2, ...), wird es komplizierter.

Naja er sagte ja bereits:

Zitat von erich.wanker:

jedes Fenster (welches sich in das Array einträgt) hat eine Public procedure "mach_dein_Ding"

Deshalb ging ich ja auch davon aus, dass alle Fenster die gleiche Basisklasse besitzen bzw. er den Fenstern ein Interface verpasst hat. Alles andere wäre auch ziemlicher Murks