In einem TTaskdialog ist der Caption-String nur dann sichtbar, wenn mit den CommonButtons ein Cancel-Button deklariert wird. Dummerweise kann ich in diesem Dialog aber keinen Cancel - Button gebrauchen.
Delphi-Quellcode:
function InsertGUID(FN:
string): Integer;
begin
result:= mrNO;
with TTaskDialog.Create(
NIL)
do
try
Caption:= '
GUIDs einfügen';
MainIcon:= tdiShield;
Title:= '
GUID in aktuelle Datei einfügen';
Text:= '
Soll eine GUID generiert und in die Datei "' + FN + '
" geschrieben werden?';
commonButtons:= [tcbYes,tcbNo,tcbCancel];
// so funktioniert's
//commonButtons:= [tcbYes,tcbNo]; // so funktioniert's nicht!
flags:= [tfVerificationFlagChecked];
verificationtext:= '
Für alle folgenden Tracks übernehmen';
If Execute
Then
begin
result:= modalresult;
If tfVerificationFlagChecked
in Flags
Then result:= -result;
end;
finally
Free;
end;
end;
Ist das reguläres Verhalten oder mache ich etwas falsch?
Gruß LP