Вопрос по MessageDlg

← →
Abcdef123 (2008-07-25 05:04) [0]

Здравствуйте, Мастера!
Никогда особо не задумывалась над параметрами функции MessageDlg, проста в использовании. Но, вот сейчас возникла необходимость, чтоб на заданный вопрос предлагались ответы Yes, No, но, чтоб по умолчанию курсор был на кнопке No. Текст вопроса менять на противоположный, чтоб использовать Yes по умолчанию я не могу, так как теряется некоторый смысл в вопросе. Менять местами кнопки в синтаксисе я пробовала, все равно отображается в порядке Yes No. Я задумалась, а возможно ли это вообще?

← →
ASoft (2008-07-25 06:42) [1]

не могу сказать, как в D6, а D7 есть:

uses QDialogs; ... MessageDlg("bla, bla", mtConfirmation, [mbYes, mbNo], 0, mbNo); ...

← →
easy © (2008-07-25 08:56) [2]

MessageBox(0, "bla, bla", "Confirm", MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION);

← →
easy © (2008-07-25 09:29) [3]

function MessageDlgDef(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; DfButton: string):word; begin with CreateMessageDialog(Msg, DlgType, Buttons) do begin ActiveControl := FindComponent(DfButton) as TButton; result:= ShowModal; end; end;
///..
if MessageDlgDef("bla, bla", mtConfirmation, [mbYes, mbNo],"no") = mrNo then

MessageBox рулит.

Вопрос по MessageDlg Найти похожие ветки