Wann wird eine Form angezeigt ?

[H.Bothur]

Moin,

ich stehe mal wieder vollkommen auf dem Schlauch:

Ich habe ein Programm das automatisch - also ohne Start-Button oä. - bei Form.Show abläuft. Wann bzw. wie kann ich denn während des Programmlaufes die Form anzeigen ??

Ich habe mal ein Textprogramm erstellt - nur die Form, darauf ein Label und eine Textdatei mit 20.000 Zeilen.
Ich merke auch das das Programm ausgeführt wird, es ist aber nicht sichtbar.

Gruss
Hans

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  ArtikelString: TStringList;
  Zeile: String;
  i, j: Integer;
begin
  ArtikelString := TStringList.Create;
  ArtikelString.LoadFromFile('d:\temp\test\artikelliste.csv');
  for j := 1 to 10 do
  begin
    for i := 0 to ArtikelString.Count -1 do
    begin
      Zeile := ArtikelString.Strings[i];
      Form1.Label1.Caption := Copy(Zeile, 1, 12);
      Form1.Label1.Refresh;
    end;
  end;
  ArtikelString.Free;
  Application.Terminate;
end;

end.

[mkinzler]

Nach Vorbereitung -> Selbstmord

Zitat:

Delphi-Quellcode:

  Application.Terminate;

[H.Bothur]

Zitat:

Zitat von mkinzler (Beitrag 1397155)

Nach Vorbereitung -> Selbstmord

Zitat:

Delphi-Quellcode:

  Application.Terminate;

Ist es - erklärt aber nicht warum in der Zwischenzeit nichts angezeigt wird. :_(

[mkinzler]

Weil Form.Show vor dem Anzeigen ausgeführt wird.

Und auch wenn die Form sichtbar wäre, wäre ja wenig sichtbar

[günni0]

Dein Problem kann man schön mit WMFormVisible lösen

Delphi-Quellcode:

const
 WM_FORM_VISIBLE = WM_USER + 1;

private
 FormInitialised: Boolean;
 procedure WMFormVisible(var msg: TMessage); message WM_FORM_VISIBLE;
end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
 FormInitialised := False;
end;

procedure TForm1.WMFormVisible(var msg: TMessage);
begin
 if not FormInitialised then
  begin
   FormInitialised := True;
   
   Code hier rein
  end;
end;

[Bernhard Geyer]

Zitat:

Zitat von mkinzler (Beitrag 1397157)

Weil Form.Show vor dem Anzeigen ausgeführt wird.

Könnte man evtl. auch sagen das das OnShow-Event die letzte Aktion vor dem Anzeigen des Formulares ist.

[mkinzler]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1397159)

Zitat:

Zitat von mkinzler (Beitrag 1397157)

Weil Form.Show vor dem Anzeigen ausgeführt wird.

Könnte man evtl. auch sagen das das OnShow-Event die letzte Aktion vor dem Anzeigen des Formulares ist.

Das wollte ich damit ausdrücken

[H.Bothur]

Zitat:

Zitat von günni0 (Beitrag 1397158)

Dein Problem kann man schön mit WMFormVisible lösen

Das bekomme ich komischerweise nicht kompiliert ... Delphi (10.1) meckert bei

"message WM_FORM_VISIBLE;"
Undeklarierter Bezeichner "WM_FORM_VISIBLE"

Gruß
Hans

[H.Bothur]

Zitat:

Zitat von mkinzler (Beitrag 1397157)

Weil Form.Show vor dem Anzeigen ausgeführt wird.

Aber ... welches Ereignis kommt den wenn die Form wirklich zum ersten Mal sichtbar ist ?

Zitat:

Und auch wenn die Form sichtbar wäre, wäre ja wenig sichtbar

In dem Beispiel nicht viel - das stimmt :-D

Hans

[Delphi.Narium]

Gehen wir davon aus, dass das Formular momentan so aufgerufen wird:

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
begin
  Form1.Show;
end;

Dann könnte man den Aufruf dahingehend ändern:

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
begin
  Form1.Show;
  Form1.DoSomething; // Diese Methode enthält den Inhalt des jetzigen OnShow-Ereignisses.
  Close;
end;

Delphi-Quellcode:

procedure TForm1.DoSomething;
var
  ArtikelString: TStringList;
  Zeile: String;
  i, j: Integer;
begin
  ArtikelString := TStringList.Create;
  ArtikelString.LoadFromFile('d:\temp\test\artikelliste.csv');
  for j := 1 to 10 do
  begin
    for i := 0 to ArtikelString.Count -1 do
    begin
      Zeile := ArtikelString.Strings[i];
      Form1.Label1.Caption := Copy(Zeile, 1, 12);
      Form1.Label1.Refresh;
    end;
  end;
  ArtikelString.Free;
  Close;
end;

Eventuell könntest Du uns aber auch mal die Stelle in Deinem Quelltext zeigen, an der Form1 angezeigt werden soll. Was passiert da vorher noch so alles?