| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по MessageDlg [D6, XP]
Abcdef123 © (2008-07-25 05:04:00)Здравствуйте, Мастера!
Никогда особо не задумывалась над параметрами функции MessageDlg, проста в использовании. Но, вот сейчас возникла необходимость, чтоб на заданный вопрос предлагались ответы Yes, No, но, чтоб по умолчанию курсор был на кнопке No. Текст вопроса менять на противоположный, чтоб использовать Yes по умолчанию я не могу, так как теряется некоторый смысл в вопросе. Менять местами кнопки в синтаксисе я пробовала, все равно отображается в порядке Yes No. Я задумалась, а возможно ли это вообще?
Ega23 (2008-07-25 09:39:00) [1]MessageBox рулит.
easy (2008-07-25 09:29:00) [2]
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
easy (2008-07-25 08:56:00) [3]
MessageBox(0, 'bla, bla', 'Confirm', MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION);
ASoft (2008-07-25 06:42:00) [4]не могу сказать, как в D6, а D7 есть:
uses QDialogs;
...
MessageDlg('bla, bla', mtConfirmation, [mbYes, mbNo], 0, mbNo);
...
| |
