Showmodal liefert falschen Wert

[idefix2]

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.

[zeras]

Was hat der Button für ein Modalresult, auf den du drückst?

[idefix2]

zur Entwurfszeit mrNone

Code:

  object btAnmelden: TBitBtn
    Left = 208
    Top = 86
    Width = 121
    Height = 25
    Caption = 'Anmelden'
    Default = True
    DoubleBuffered = True
    ParentDoubleBuffered = False
    TabOrder = 2
    OnClick = btAnmeldenClick
  end

[Hawkeye219]

Hallo,

der falsche Wert wird durch den überflüssigen Aufruf der Close-Methode gesetzt. Das Setzen von ModalResult reicht aus, um das Formular zu schließen.

Gruß Hawkeye

[idefix2]

Danke, ich habe gewusst, es muss irgend ein dummer Fehler sein
Aber darauf, dass das close schaden könnte, wäre ich nicht leicht gekommen.