Aktionen direkt nach Programmstart ausführen

[Tubos]

Hallo!

Ich möchte gerne beim Programmstart ein paar Labels mit Infos zeitverzögert anzeigen.
Die Funktion dazu heißt form1.credits.
Sie funktioniert, aber wie kann ich sie direkt nach Programmstart aufrufen?
Wenn ich das in OnCreate oder OnShow von Form1 reinschreibe, hat es ja keinen Sinn weil das Formular noch nicht sichtbar ist.
Also habe ich mir das Hauptprogramm hergenommen und eine Zeile eingefügt, sodass das jetzt so aussieht:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  form1.credits;
  Application.Run;
end.

Und da meldet der Compiler: "Undefinierter Bezeichner: 'Credits'"

Wie mache ich das am besten?

Thx;
Tubos

[SirThornberry]

du musst credits als public declarieren dann sollte es gehen. Eine weitere möglichkeit ist das du einen Timer nimmst und den auf eine Sekunde einstellst. Im OnCreate aktivierst du dann den Timer und somit wird dann nach einer sekunde deine credits aufgerufen.. (timer deaktivieren natürlich ni vergessen)

[Tubos]

das funktioniert, danke!

[glkgereon]

ich hätte das in die form1OnCreate gemacht :gruebel:

[Luckie]

Also ich halte die Lösung mit dem Timer auch für eine der schlechtesten aller Lösungen.

[SirThornberry]

Ich auch :lol: Aber ne bessere Lösung fällt mir ni ein wenns verzögert sein soll..

[Tubos]

das mit dem projektdatei umändern passt schon so :)