.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

[xZise]

Also ich glaube du bist dir nicht der Funktionalität des Fensters bewusst...

Darauf ist eine Liste, und zwei Buttons...
Der Eine zum abbrechen und der anderen zum "ok" ...

Wenn man nun die Liste selektiert hat, und enter drückt, dann soll er so tun, als drücke er ok. Wenn man aber ESC drückt, dann soll er Abbrechen "drücken"...

[Hawkeye219]

Zitat:

Zitat von xZise

Also ich glaube du bist dir nicht der Funktionalität des Fensters bewusst...

Ich glaube, du unterschätzt die Fähigkeiten der VCL.

Ich habe allerdings zwei Einstellungen vergessen: beim Cancel-Button muß zusätzlich die Eigenschaft TButton.Cancel auf den Wert True gesetzt werden, beim OK-Button muß TButton.Default auf den Wert True gesetzt werden.

Die Tasten funktionieren allerdings immer, nicht nur innerhalb der ListBox. Wenn du diese Funktionalität benötigst, kommst du wirklich nicht ohne Code aus.

Gruß Hawkeye

[xZise]

W T F... Du hast recht ... Ist ja heftig...