nur um sicherzustellen das ich das richtig verstehe:
du willst also eine aktion machen, sobald alle fenster geladen sind?
eine spezielle funktion gibt es leider nicht, aber du kannst es so machen:
wenn du in deiner projektverwaltung auf den exe-namen deines projekt rechtsklickst und "quelltext anzeigen" auswählst, kommt dir ungefähr sowas entgegen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
| program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' ,
Unit2 in 'Unit2.pas' ,
Unit3 in 'Unit3.pas' ,
Unit4 in 'Unit4.pas' ,
Unit5 in 'Unit5.pas' ,
Unit6 in 'Unit6.pas' ,
Unit7 in 'Unit7.pas' ,
Unit8 in 'Unit8.pas' ;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm8, Form8);
Application.Run; HintPause:=100; formxyz.einefunktion
end. |
