如何验证 Delphi TTaskDialog 中的复选框是否被选中？

Question

好的，这应该很容易，但我没有找到解决方案，至少在 中找不到解决方案文档不太好.. 在TTaskDialog 中，您可以选择添加一个复选框。您可以通过Flags 中的tfVerificationFlagChecked 标志来控制其初始状态。但是如何获取对话框执行后的状态呢？

当然，可以使用 OnVerificationClicked 事件并在每次调用时切换一个局部变量，该变量最初等于复选框的初始状态。但人们会期待一种更自然的解决方案。

Answer 1

天哪，内河码头犯了一个错误。

我的一些测试表明，如果该复选框最初未被选中，但被用户选中，则将设置 tfVerificationFlagChecked 标志。但是，如果最初设置了该标志，并且用户取消选中该框，则 tfVerificationFlagChecked 将不会从 Flags 集中删除。这并不奇怪。 VCL 代码确实

Result := TaskDialogIndirect(LTaskDialog, {$IFNDEF CLR}@{$ENDIF}LModalResult,
  {$IFNDEF CLR}@{$ENDIF}LRadioButton, {$IFNDEF CLR}@{$ENDIF}LVerificationChecked) = S_OK;
FModalResult := LModalResult;
if Result then
begin
  FButton := TTaskDialogButtonItem(FButtons.FindButton(FModalResult));
  FRadioButton := TTaskDialogRadioButtonItem(FRadioButtons.FindButton(LRadioButton));
  if LVerificationChecked then
    Include(FFlags, tfVerificationFlagChecked);
end;

注意到，如果在对话框关闭时选中该复选框，则包含该标志，但如果用户未选中该框，则没有代码可以删除该标志。

当然，人们会期望代码的后半部分已经阅读过

  if LVerificationChecked then
    Include(FFlags, tfVerificationFlagChecked)
  else
    Exclude(FFlags, tfVerificationFlagChecked)

，我想我会采用 OnVerificationClicked 手动切换方法。

Answer 2

您不能在对话框关闭后读取Flags来查看tfVerificationFlagChecked是否仍然存在吗？

Answer 3

在 Delphi XE7（也可能是早期版本）中，这个问题似乎已经得到解决。

choice := tfVerificationFlagChecked in tskbox.Flags;

choice，一个布尔变量，可以返回选中的状态。

Answer 4

看起来它在 Delphi 10.4 中有效。 Flags 属性 tfVerificationFlagChecked 现在是一个可靠的指示，即使用户多次更改该值也是如此。

if dlg.Execute then
  begin
    wasChecked:=tfVerificationFlagChecked in dlg.Flags;
    // do something
  end;