Ich habe keine "Buttons mit ganzen Fragen" als Buttontext, sondern die möglichen Antworten auf die im Label angezeigte Frage. z.B:
Delphi-Quellcode:
case Ask('Eine PDF Datei mit diesem Namen existiert schon.'#13+#10
+'Wollen sie die PDF Datei überschreiben'#13#10
+'oder eine neue Seite an die Datei anhängen?',
'Überschreiben', 'Anhängen', 'Anderer Name', 'Abbrechen') of
1: doÜberschreiben;
2: doAnhängen;
3: DoAndererName;
4: exit;
end;
Die Einschränkung der Buttontexte auf die paar vorgefertigten möglichen Antworten (Ok, Ja, Nein etc.) ist ein Hauptgrund für meine Eigenbau Dialog-
Unit. Das Anzeigen anderer Buttons im TTaskdiaog ist zwar möglich, aber doch recht umständlich.
Abgesehen davon, dass ich noch auf einige Windows-XP-Anwender Rücksicht nehmen muss und in dem konkreten Projekt die Verwendung dieses Windows-Dialogs, den es erst ab Vista gibt, dadurch ohnehin nicht möglich ist.
Und der Standard-TTaskDialog ist übrigens auch mit der unnötigen Überschrift ausgestattet, die ich in meinem Dialog gerne weg hätte.