Hi,
ich diesen Code im Programm Quelltext, um einen Login zu realisieren.
Delphi-Quellcode:
if frm_Login.ShowModal <> mrOk then
Exit
else
Begin
Application.Title:= 'verwaltung';
Application.CreateForm(Tfrm_Start, frm_Start);
End;
in der Login Form habe ich einen Button der
ModalResult:= mrOk;
übergibt, jedoch wird immer
if frm_Login.ShowModal <> mrOk then Exit
ausgeführt, was kann der Grund sein?