Problem mit Rückgabewert bei ShowModal

[DeddyH]

Du kannst den Timer im OnTimer-Event doch auch ohne die Variable abstellen.

[himitsu]

Zitat:

gestartet

Er lässt die Fenster automatisch erstellen.
Und da wird es wohl vorgekommen sein, dass der Timer schon auslöste, bevor die Form2 erstellt wurde.

Warum wird die Form überhaupt automatisch erstellt, anstatt erst dann, wenn sie benötigt wird?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  F: TForm2;
begin
  Timer1.Enabled := false;
  F := TForm2.Create(nil);
  try
    if F.ShowModal = mrOk then
      ...
  finally
    F.Free;
  end;
end;

Zitat:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ...
  Form1.Timer1.Enabled := false;

Du bist bereits in TForm1, dort verwendet man niemals diese globale Variable.
Wenn man unbedingt eine Variable benötigt, dann nimmt man hierfür das Self.

[bcvs]

Und wenn du das alles berücksichtigt, kannst du auch in Unit2 auf uses unit1; verzichten. Das ist eine unnötige zirkuläre Unitreferenz. Fällt nur nicht sofort auf, weil sie im Imlementation-Teil steht.