Alle Forms eines Projectes ermitteln

[kingflo]

Hallo...
Kennt von euch zufällig jemand eine gute und leichte möglichkeit alle Formulare meines Projektes zu ermitteln?

also ich brauch nur den namen der Form z.B Form1

denn ich muss eine funktion für jede Form in meiner Anwendung benutzen und deshalb hätte ich gerne eine schleife, damit ich die procedure nur einmal benutzen muss.

wäre toll wenn da jemand was kennt.

[AndreasP]

mahlzeit,

für formulare ist das eigentlich recht einfach:

Delphi-Quellcode:

var i: integer;
  Comp: TComponent;
begin
  Memo1.Clear;
  for i := 0 to Application.ComponentCount - 1 do
  begin
    Comp := Application.Components[i];
    if Comp is TForm then
      Memo1.Lines.Add(TForm(Comp).Name);
  end;
end;

formulare die beim start dieser funktion noch nicht initialisiert wurden (project->optionen->formulare) werden in diesem fall nicht mit aufgelistet. dialoge (TOpenDialog...) funktionieren imho generell nicht da ja der dialog erst mit execute() erstellt wird und danach wieder freigegeben wird (ich lass mich aber gern eines besseren belehren). eventuell solltest du die funktion erst aufrufen wenn das fenster/dialog angezeigt/gebraucht wird. was genau willst du denn machen?

[Lannes]

Hallo,

ich kann noch dieses mit der gleichen Funktionalität anbieten:

Delphi-Quellcode:

for z := 0 to Screen.FormCount-1 do
    Memo1.Lines.Add(Screen.Forms[z].Name);

[kingflo]

Ja genau das habe ich gesucht danke...

Sollte man in die Libary aufnehmen kann man nämlich immer mal gebrauchen


danke