Wann wird eine Form angezeigt ?

[H.Bothur]

Zitat von mkinzler:

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

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?

[H.Bothur]

Zitat von Delphi.Narium:

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

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
begin
  Form1.Show;
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?

nein - die Form ist ja die Mainform des Programmes - sprich das Programm soll vollautomatisch ablaufen und nur eben während die Daten verarbeitet werden einen Status anzeigen - und sich dann eben auch selber wieder beenden.

Das ist übrigens (fast) der komplette Code, der Rest ist der Delphi-Standard:

Delphi-Quellcode:

unit TestUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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, 9);
      Form1.Label1.Refresh;
    end;
  end;
  ArtikelString.Free;
  Application.Terminate;
end;

end.

Hans

[himitsu]

Warum überhaupt GUI?

Wenn ich mir den ersten Post anseh, dann wäre Konsole doch genau die passende Lösung.

Bzw. die Hauptform ist keine Hauptform, von der aus alles abläuft, sondern stattdessen gehört da eine eine Statusform hin, welche von dem Arbeitscode aus angesteuert wird.

[KodeZwerg]

Verarbeitet wird da ja nicht wirklich was, sieht mir eher nach einer CPU-Beschäftigung aus die (noch) keinen Sinn ergibt.
Starte Programm -> Lade Liste -> Zeige Liste -> Schließe Programm, alles ohne Interaktion.
Irgend etwas fehlt da

[Delphi.Narium]

Nein, das ist der Versuch ein Batchprogramm mit Oberfläche (zur Fortschrittsanzeige) zu realisieren.

Sowas musste ich auch schon häufiger machen.

'ne Konsole ist bei manchen halt verpönt, die können den Fortschritt einer Aufgabe nur in 'ner Windowsoberfläche erkennen, aber nicht an der Ausgabe auf der Konsole

Und mit sowas kann man ein Programm mit Oberfläche auch "mal eben" zu 'nem "bedienungslosen" Batchprogramm umfunktionieren:

Delphi-Quellcode:

// in der DPR
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  ... // halt da hier gewöhnliche  
  if ParamCount > 1 then begin
    Form1.Show;
    Form1.DoSomething;
    Form1.Close; 
  end else begin
    Application.Run;
  end;
end;

Und wenn's in erster Linie um "sichtbare Funktionalität" geht, dann kann das ausreichen

[himitsu]

filesplitter himitsu
Konsolenanwendung, wenn in Konsole gestartet, und ansonsten GUI-Anwendung.

[Delphi.Narium]

Geht im Prinzip ja und ist auch durchaus sinnvoll, dass man Konsolenanwendungen als ebensolche implementiert und GUI-Anwendung als GUI-Anwendungen.

Aber es gibt halt im realen Leben durchaus schonmal die Anforderung, dass eine Anwendung, die sinnvoll als Konmsolenanwendung realisiert werden kann, vom "Kunden" als GUI-Anwendung verlangt wird, weil er da so schön was sehen kann. Die Anforderungen sind halt manchmal "gegen alle Vernunft"

Letztlich kann man alle Formen von Konsolenanwendungen und GUI-Anwendungen quasi beliebig mischen. Ob man's als sinnvoll erachtet, steht auf 'nem anderen Blatt

[DeddyH]

Man könnte das auch mit einer eigenen Message lösen, die man sich selbst schickt (aber nicht SendMessage, sondern PostMessage benutzen). Die wird dann abgearbeitet, wenn alle anderen Messages davor durch sind.

[haentschman]

Moin...

Zitat:

Man könnte das auch mit einer eigenen Message lösen

...genau.

Delphi-Quellcode:

const
  WM_AFTERSHOW = WM_USER + 100;
...
procedure FormAfterShow(var Msg: TMessage); message WM_AFTERSHOW;
...
procedure TfoMain.FormAfterShow(var Msg: TMessage);
begin
  // das ist dann sichtbar...
end;