Frage zu FormCreate

[S20000]

Hallo zusammen,

ich habe eine Anfängerfrage.
Wenn ich folgenden Quelltext in Delphi
einbinde:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage('Hallo');
end;

end.

Dann wird mir zuerst die message angezeigt, und erst nachdem
ich auf ok geklickt habe wird das Hauptfenster
Form1 erzeugt. Wie kann ich den bewirken,
das erst das Hauptfenster und dann erst die message,
oder was auch immer dann folgt ausgeführt wird.

Gruß
Sebastian

[Die Muhkuh]

Hi,

versuch mal OnShow, anstatt OnCreate.

[S20000]

Hallo,

hat leider den gleichen Effekt, erst Message Box, dann die Form1

[Die Muhkuh]

Dann versuch OnActivate :D

[RavenIV]

Das wird so aber auch in OnShow nicht funktionieren.
Das ShowMessage hält die Verwarbeitung solange auf, bis der Button gedrückt wurde und das MessageFenster weg ist.
Also wird das Formular auch erst angezeigt, wenn die Message bestätigt wurde.

[Die Muhkuh]

Also mit OnActivate seh ich die Form und die MessageBox. Sollte also klappen. Hab's eben getestet.

[Apollonius]

Allerdings wird OnActivate bei jedem Hervorholen aufgerufen.

[RavenIV]

Zitat:

Zitat von Apollonius

Allerdings wird OnActivate bei jedem Hervorholen aufgerufen.

Dann muss man sich halt merken, dass es das erste Mal war.

[Die Muhkuh]

Das ist klar, aber mittels bool'scher Variable kann man das ja nur einmal aufrufen lassen. :zwinker:

[HiWieGehts]

Hallo,

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.

LG, HiWieGehts

[RavenIV]

Zitat:

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:

Zitat von RavenIV

Zitat:

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. :zwinker:

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:

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.

[Apollonius]

Okay, ihr habt gewonnen. Nur zum Anzeigen braucht man ja keine Nachrichtenschleife.

[HiWieGehts]

Zitat:

Zitat von 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.

Procedure TForm1.InitShowMessage;
begin
ShowMessage('Hallo!');
end;

Procedure TFormMain.Irgendwas;
begin
..
..
Form1.Show;
Form1.InitShowMessage;
end;

Das funktioniert aber nur, wenn es sich bei Form1 nicht um die Hauptform des Programms handelt.

Wenn dein Ziel ein Splash Screens ist, solltest du mal danach suchen - dafür gibt es fertige Lösungsvorschläge.

LG, HiWieGehts

[Die Muhkuh]

Warum so umständlich? Das mit bool'scher Variable und OnActivate funktioniert 1a.