showmessage beim Prog.-Start aber nach dem Öffnen der Form

[ak1]

Hallo Leute,

wie kann ich eine Showmessage oder einen Messagedialog beim Programmstart anzeigen, aber nach dem Anzeigen des Hauptforumlars.
Im oncreate-event des Formulars geht es ja nicht nach dem Anzeigen der Form. Wie könnte ich das machen?

Gruß

[Sharky]

Hai ak1,

versuche es mal im OnActivate deiner Form.

[faux]

Oder Im Quelltext des Projektes (Nicht der Unit):

Delphi-Quellcode:

program Project1;

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

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  MessageDlg('Nachricht', mtError, [mbOK], 0);
  Application.Run;
end.

[roderich]

Zitat:

versuche es mal im OnActivate deiner Form.

Wobei Du daran denken mußt, daß OnActivate jedesmal aufgerufen wird, wenn dieses Form den Focus innerhalb deines Programms von einem anderen Form erhält.
Für solche Fälle bietet sich ein boolean-Flag an, welches im OnCreate auf true gesetzt wird. Im OnActivate kannst du prüfen, ob es true ist -> Nachricht anzeigen, direkt danach wird es auf false gesetzt. Damit ist sichergestellt, daß das Ding wirklich nur einmal angezeigt wird.

Roderich

[ak1]

Hallo sharky,

im onActivate-Event funktioniert es, nur will ich jetzt das Fenster erst anzeigen lassen, wenn es maximiert ist, da mein Fenster beim Start maximiert wird.

Gruß