Hallo zusammen,
ich habe eine neue Skin Komponente eingesetzt. Um das Verhalten des Programms schnell zu testen, möchte ich folgende Funktion:
Es sollen alle Formulare der Anwendung zur Laufzeit angezeigt werden. Ich habe mir das ungefähr so vorgestellt
Delphi-Quellcode:
procedure ShowAllForms;
var i: Integer;
begin
for i:=0 to pred(application.componentcount)do
begin
if Application.Components[i] is TForm then
begin
with TForm(Application.Components[i]).Create(Application)do
begin
try
Showmodal;
finally
free;
end;
end;
end;
end;
end;
Problem:
Die meisten Formulare werden zur Laufzeit erzeugt und sind somit nicht in Application.Components aufgelistet!
Frage:
Wie kann ich mir alle Ableiteungen von TForm (eines Projektes) ausgeben lassen bzw. die Formulare erzeugen lassen ohne alles zu tippem???
Danke Baeuerle