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.
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