MessageDlg

← →
bushmen © (2005-09-18 23:22) [0]

Добрый день.
Сегодня столкнулся с неожиданной проблемой: хочу перед удалением спросить у пользователя подтверждение на удаление, причем хочу установить дефолтную кнопку следующим образом:

if MessageDlg("Вы действительно хотите удалить запись?",mtConfirmation,[mbYes,mbNo],0,mbNo)=mrYes then begin

так при попытке компиляции выдается ошибка: "[Error] Unit1.pas(96): Too many actual parameters". Но ведь в соответствии с help"ом все должно проходить или я ошибаюсь?

← →
Yanis © (2005-09-18 23:25) [1]

В Help"е ошибка.

← →
Джо © (2005-09-18 23:26) [2]

> Но ведь в соответствии с help"ом все должно проходить или

Плохо смотрел в Help. Последним параметром идет HelpCtx: Integer (help context для диалогового окна).

← →
Джо © (2005-09-18 23:33) [3]

По сабжу. Используй MessageBox - там можно задать (в флагах) кнопку по умолчанию.
Application.MessageBox(0,"Text",(MB_YESNO + MB_DEFBUTTON2))

← →
Джо © (2005-09-18 23:35) [4]

> [3] Джо © (18.09.05 23:33)

Спешил, вот более корректный пример:
Application.MessageBox("Text","Caption",(MB_YESNO or MB_DEFBUTTON2 or MB_ICONHAND))

← →
Defunct © (2005-09-19 10:19) [5]

> Джо
флажки легко запоминаются..
0 - default
16 - "красный крест"
32 - "знак вопроса"
48 - "воскл. знак"
64 - "инфо"

if Application.MessageBox("Text","Caption", MB_YESNO + 32 ) = idYES ...

в сабжевом варианте самое оно ;>

> [5] Defunct © (19.09.05 10:19)
> флажки легко запоминаются..

А зачем их запоминать?
И вопрос-то, в общем, не в этом, а в том, чтобы установить текущую кнопку. Т.е., DEFBUTTON1, DEFBUTTON2 и т.д.

> [7] Defunct © (19.09.05 22:46)
> дык..
> вижу что вопрос не в этом, тока кнопка "YES" и так будет
> кнопкой по дефолту.

А ему как раз нужно не mbYes, а mbNo по дефолту :)

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