Am 2014-10-13 um 13:58 schrieb 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.hesterm...@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".
It seems that in this case I must add the (otherwise redundant) default text:
case QuestionDlg('File overwrite','File exists. Overwrite it?', mtConfirmation,
[mrNo,'No','IsDefault',mrYes,mrIgnore,'neVer',mrAll,'All',mrAbort,'Stop '],0) of
A strange behaviour which IMO *must* be documented instead of leaving everybody
guessing.
But who knows how it *realy* is supposed to be?
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
