Hallo,
im Moment hab ich wieder ein Brett vor dem Schädel:
Delphi-Quellcode:
procedure TloginForm.btAnmeldenClick(Sender: TObject);
begin
if (edUser.Text='') and (edPassword.Text='')
then begin
ModalResult := mrOk;
close;
end
else showmessage ('Benutzer oder Password ungültig');
end;
Delphi-Quellcode:
x := LoginForm.ShowModal;
if x <> mrOk
Meine Loginform wird aufgerufen, ich gebe als Benutzername und Password nichts ein und klicke auf den Anmelden Knopf.
Im Debugger sehe ich, dass der Then-Zweig der Prozedur durchlaufen wird, Modalresult erhält den Wert mrOk (=1).
Aber Loginform.ShowModal liefert mrAbort (=2) als Ergebnis!
Der Button btAnmelden hat als Kind bkCustom.