Frage zu FormCreate

[RavenIV]

Zitat von HiWieGehts:

OnCreate und OnShow werden aufgerufen, bevor die Form angezeigt wird. Daher auch das von die beschriebene verhalten.
Mache aus deinem TForm1.FormCreate ein TForm1.InitShowMessage. Diese rufst du dann nachdem Show für Form1 auf.
Eine weitere, nicht sehr schöne Möglichkeit, ist die Verwendung eines Timers. Diesen startest du im OnCreate oder OnShow und im OnTimer mache dein ShowMessage.

Dann doch lieber OnActivate mit einem Merker.
Alles andere ist Murks.
Das hätten die Leute bei meinem alten Arbeitgeber so gemacht, weill sie Luschen sind und es nicht besser konnten.

[HiWieGehts]

Zitat von RavenIV:

Zitat von HiWieGehts:

OnCreate und OnShow werden aufgerufen, bevor die Form angezeigt wird. Daher auch das von die beschriebene verhalten.
Mache aus deinem TForm1.FormCreate ein TForm1.InitShowMessage. Diese rufst du dann nachdem Show für Form1 auf.
Eine weitere, nicht sehr schöne Möglichkeit, ist die Verwendung eines Timers. Diesen startest du im OnCreate oder OnShow und im OnTimer mache dein ShowMessage.

Dann doch lieber OnActivate mit einem Merker.
Alles andere ist Murks.
Das hätten die Leute bei meinem alten Arbeitgeber so gemacht, weill sie Luschen sind und es nicht besser konnten.

So eine Antwort kann wohl nur jemand schreiben, der beim Lesen einer Zeile die vorhergehende schon wieder vergessen hat.

[S20000]

Hi,

kannst du das etwas näher erklären?

Zitat:

Mache aus deinem TForm1.FormCreate ein TForm1.InitShowMessage. Diese rufst du dann nachdem Show für Form1 auf.

[Die Muhkuh]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    [...]
  private
    FFirstShow: Boolean;
  end;

implementation

procedure TForm1.Create(Sender: TObject);
begin
  FFirstShow := true;
end;

procedure TForm1.Activate(Sender: TObject);
begin
  if (FFirstShow) then
  begin
    ShowMessage('Hallo!');
    FFirstShow := false;
  end;
end;

Btw. stimme ich Raven zu, dass das mit dem Marker die eleganteste Lösung ist.

[dominikkv]

oder du regelst das ganze gleich in der Projektdatei (Projekt -> Quelltext anzeigen)

[Apollonius]

Das geht nicht. Die Formulare werden erst in Application.Run angezeigt, und das kehrt erst ganz am Ende zurück.

[Die Muhkuh]

"Falsch", werden sie nicht.

Nutze in meinem Projekt folgendes:

Delphi-Quellcode:

begin
  Application.Initialize;

  flogin := Tflogin.Create(Application);
  if flogin.ShowModal = mrOK then
  begin
    Application.CreateForm(Tfmain, fmain);
    Application.Run;
  end;
end.

Geht ohne Probleme

[Apollonius]

Ja, ShowModal kann Application.Run ersetzen, wie man im VCL-Code sieht.

[S20000]

Vielen Dank, die Idee mit dem Merker ist gut!

[dominikkv]

Zitat von Apollonius:

Das geht nicht. Die Formulare werden erst in Application.Run angezeigt, und das kehrt erst ganz am Ende zurück.

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);

  Form1.Show;
  Form1.Refresh;
  Form1.MyOwnCreate; // Eigene procedure, hier kannst du deine nachricht anzeigen lassen

  Application.Run;
end.