ShowModal funktioniert nicht

[youuu]

Zitat von stahli:

Zeig mal mehr...

(Ups, kein roter Kasten?)

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.MainFormOnTaskBar:= true;

  frm_Login:= Tfrm_Login.Create(nil);
  try
    if frm_Login.ShowModal = mrOk then
      Application.CreateForm(Tfrm_Start, frm_Start);
  finally
    frm_Login.Free;
  end;
  Application.Run;
end.

Login Form:

Delphi-Quellcode:

procedure Tfrm_Login.ButtonLoginClick(Sender: TObject);
begin
  ModalResult:= mrOk;
end;

[Björn Ole]

Abgesehen von {frm_Login.}Free; geht dein Code bei mir.

Ha, roter Kasten kam ausnahmsweise mal.

Zitat von Peter1999:

Das Modalresult sollte ohnehin über die Property des Buttons gesetzt werden und nicht im Quelltext.

Wo ist da der Unterschied?

[stahli]

Delphi-Quellcode:

    finally
      frm_Login.Free;
    end;

Das Objekt "frm_Login" ist dort sicher noch nil, da Du die Forminstanz nicht zugewiesen hast.

[xZise]

Moin,
könntest du ein bisschen mehr Code von Tfrm_Login zeigen? Vielleicht setzt du später ModalResult neu?

@Peter1999: Was ist wenn er vorher was testen will, aber aktuell zu Testzwecken nichts macht:

Delphi-Quellcode:

procedure Tfrm_Login.ButtonLoginClick(Sender: TObject);
begin
  if (Username.Text <> '') then
    ModalResult:= mrOk;
end;

Außerdem würde ich da nicht die globale Variable nehmen, also definiere dir eine lokale Variable im Projekt Source Code. So verhinderst du eventuelle Quereffekte. Das geht natürlich nicht, wenn du später auf die globale Variable wieder zugreifst.

Zitat von stahli:

Delphi-Quellcode:

    finally
      frm_Login.Free;
    end;

Das Objekt "frm_Login" ist dort sicher noch nil, da Du die Forminstanz nicht zugewiesen hast.

Nicht, wenn du es vorher initialisierst.

MfG
Fabian

[Peter1999]

@xZise: Da hast du schon recht. Ich sage auch nicht, dass es nicht sinnvolle Fälle gibt. Was er uns aber zeigt ist eine sonst leere Methode. Da macht diese Zuweisung im Quelltext einfach keinen Sinn. Deshalb vermute ich ja, dass er uns hier den entscheidenden Quelltext nicht zeigt, der dann vermutlich nach der Zuweisung von Modalresult steht.