Làm cách nào để xác minh xem hộp kiểm có được kiểm tra trong một Delphi TTaskDialog không?

Question

OK, điều này sẽ dễ dàng, nhưng tôi không tìm thấy giải pháp, ít nhất là không trong not so good documentation .. Trong một TTaskDialog, bạn có tùy chọn để thêm một hộp kiểm. Bạn có thể kiểm soát trạng thái ban đầu của nó bằng cờ tfVerificationFlagChecked trong Flags. Nhưng làm thế nào để có được trạng thái sau khi hộp thoại đã được Execute d?

Tất nhiên, người dùng có thể sử dụng sự kiện OnVerificationClicked và chuyển đổi biến cục bộ, ban đầu bằng trạng thái ban đầu của hộp kiểm, trên mỗi cuộc gọi. Nhưng người ta sẽ mong đợi một giải pháp tự nhiên hơn.

Answer 1

Ôi Chúa ơi, Embarcadero đã phạm sai lầm.

Một vài thử nghiệm của tôi cho thấy rằng nếu hộp kiểm ban đầu không được chọn, nhưng được kiểm tra bởi người dùng, thì cờ tfVerificationFlagChecked sẽ được đặt. Nhưng nếu cờ được đặt trước và người dùng bỏ chọn hộp, thì tfVerificationFlagChecked sẽ không bị xóa khỏi tập hợp Flags. Và điều này không lạ. Mã VCL thực hiện

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; 

Lưu ý rằng cờ được bao gồm nếu hộp kiểm được chọn khi hộp thoại đóng, nhưng không có mã để xóa cờ nếu hộp không được người dùng bỏ chọn.

Tất nhiên, người ta mong chờ phần sau của mã đã đọc

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

Tôi nghĩ rằng tôi sẽ đi với OnVerificationClicked thủ tiếp cận toggling.

Answer 2

Bạn không thể đọc Flags sau khi hộp thoại đóng để xem liệu tfVerificationFlagChecked vẫn còn hiện diện?

Answer 3

Trong Delphi XE7 (có thể là phiên bản cũ hơn, quá) điều này dường như đã được giải quyết.

choice := tfVerificationFlagChecked in tskbox.Flags; 

lựa chọn, biến boolean, có thể trả lại trạng thái đã chọn.