Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.16;
Скачать: CL | DM;

Вниз

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  ...

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


 
Джо ©   (2005-09-19 15:26) [6]


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

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


 
Defunct ©   (2005-09-19 22:46) [7]

Джо ©   (19.09.05 15:26) [6]

дык..
вижу что вопрос не в этом, тока кнопка "YES" и так будет кнопкой по дефолту.


 
Джо ©   (2005-09-19 23:51) [8]


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

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



Страницы: 1 вся ветка

Текущий архив: 2005.10.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
10-1105790489
aus
2005-01-15 15:01
2005.10.16
Symantec Antivirus Server


4-1124185150
BPK
2005-08-16 13:39
2005.10.16
Возврат значения через сообщение


1-1127730987
Laymer
2005-09-26 14:36
2005.10.16
Изображение иконки программы на кнопке.


14-1127590552
KilkennyCat
2005-09-24 23:35
2005.10.16
Предлагаю всем соседям по куоомуналке, родственничкам и


14-1127394433
Narik
2005-09-22 17:07
2005.10.16
дата время и тд из FileListBox и DirectoryListBox