Fenster anhand Namen ansprechen

[erich.wanker]

Hallo,

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

Kann ich irgendwie folgendes machen?

Delphi-Quellcode:

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:

Zitat von erich.wanker (Beitrag 1412699)

aber dann funktionierte folgendes Nicht

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

[Jasocul]

Zitat:

Zitat von Zacherl (Beitrag 1412700)

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

Kann so nicht funktionieren.

Delphi-Quellcode:

fensterForm[fensterschleife]

ist vom Typ TForm. Dieser Typ kennt die Methode

Delphi-Quellcode:

mach_dein_Ding

einfach nicht.

[Zacherl]

Zitat:

Zitat von Jasocul (Beitrag 1412701)

Zitat:

Zitat von Zacherl (Beitrag 1412700)

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

Kann so nicht funktionieren.

Delphi-Quellcode:

fensterForm[fensterschleife]

ist vom Typ TForm. Dieser Typ kennt die Methode

Delphi-Quellcode:

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 :stupid:

In diesem Falle muss der TE entweder Erwähntes umsetzen, oder casten:

Delphi-Quellcode:

(fensterForm[fensterschleife] as TMyForm).mach_dein_Ding;

[Jasocul]

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

[Zacherl]

Zitat:

Zitat von Jasocul (Beitrag 1412709)

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

Naja er sagte ja bereits:

Zitat:

Zitat von erich.wanker (Beitrag 1412699)

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 :P