.ShowModal und Button mit mrOK = mrCancel?

[xZise]

Ich habe ein Problem mit dem Rückgabewert von ShowModal!

Zuerst erzeuge ich die Form dynamisch:

Delphi-Quellcode:

procedure TfrmSettings.Button1Click(Sender: TObject);
begin
  frmVarsBox := TfrmVarsBox.Create(nil);
  try
    Showmessage(BoolToStr(frmVarsBox.ShowModal = mrOk, true));
  finally
    frmVarsBox.Free;
  end;
end;

Und das Ergebnis ist false (und im falle von mrCancel true).
Dabei hat der Button bOk.ModalResult den Wert mrOk!

Delphi-Quellcode:

procedure TfrmVarsBox.lbVarsKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN then
    bOkClick(bOk)
  else if key = VK_ESCAPE then
  begin
    bCloseClick(bClose);
  end;
end;

procedure TfrmVarsBox.bOkClick(Sender: TObject);
begin
  ModalResult := mrOk;  // Testweise hinzugefügt
  close;
end;

Und ich weis einfach nicht, woran es liegen kann...

[Hawkeye219]

Hallo Fabian,

wirf mal die Close-Anweisungen aus den Button-Prozeduren raus. Durch das Setzen von ModalResult wird das Formular bereits geschlossen.

Gruß Hawkeye

[xZise]

Und was mache ich mit OnClick anweisungen?

[mkinzler]

Zitat:

Und was mache ich mit OnClick anweisungen?

In wiefern?

[xZise]

Ich möchte einen Klick auf Ok/Abbrechen (bOk/bClose) simulieren, wenn man in der ListBox (lbVars), auf Enter/Excape drückst.
Um genau zu sein: Die Methode "lbVarsKeyDown" ;)

[mkinzler]

Entweder du rufst die entspr. Event-Methode auf, wie du es ja schon tust oder setzt .ModalResult direkt.

[xZise]

Ah danke ^^ So funktionierts!

[Hawkeye219]

Wenn du die Eigenschaft TButton.ModalResult nutzt, kommst du eventuell ohne eine Zeile Quelltext aus...

Gruß Hawkeye

[xZise]

Zitat:

Zitat von Hawkeye219

Wenn du die Eigenschaft TButton.ModalResult nutzt, kommst du eventuell ohne eine Zeile Quelltext aus...

Nutze ich ja schon... Aber das mit KeyDown ist ja etwas anderes, und lässt sich nur so lösen...
Ich habe jetzt nur noch die Methode lbKeyDown (die hier relevant sind)

[Hawkeye219]

Wenn du wirklich TButton.ModalResult nutzt, dann solltest du deine Routinen lbVarsKeyDown, bOkClick und bCloseClick entfernen können, ohne Funktionalität zu verlieren - vorausgesetzt, sie enthalten nur den gezeigten Code.

Gruß Hawkeye