Wann wird eine Form angezeigt ?

[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?