[Lazarus] Default button for QuestionDLG

[Jürgen Hestermann]

Am 2014-10-13 um 13:49 schrieb Jürgen Hestermann:
>
> Am 2014-10-12 um 12:57 schrieb Bart:
>> On 10/12/14, Jürgen Hestermann <juergen.hestermann at gmx.de> wrote:
>>
>>> How can I specify the default button for QuestionDLG?
>> function QuestionDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType;
>>              Buttons: array of const; HelpCtx: Longint): TModalResult;
>>
>> In the Buttons array of const, add the string  'isdefault' after the
>> button you want to be the default one.
>
> Thanks, it works.

That was too early. It does not work in all cases. In

case QuestionDlg('File overwrite','File exists. Overwrite it?',
                                mtConfirmation,
[mrNo,'IsDefault',mrYes,mrIgnore,'neVer',mrAll,'All',mrAbort,'Stop '],0) of

it just renames the standard "No" button to "IsDefault".