MessageBox??? - Общие вопросы Delphi

Рустам · 15.01.2008, 22:38

Приветствую Всех!
Подскажите, как узнать на какую кнопку, именно, нажал пользователь в диалоге messagebox?
Если не затруднит, то пжлста, пояснения пишите с кодом!!! (Ну-у-у, или код с пояснением!!!

)

Air · 15.01.2008, 23:02

Если я правильно понял вотрос, то:
1 - Ok
2 - Отмена
3 - Прервать
4 - Повтор
5 - Пропустить
6 - Да
7 - Нет
8 - -
9 - -
10 - Повторить
11 - Продолжить
___________________________________ ___

Ok - 0
Ok + Отмена - 1
Прервать + Повтор + Пропустить - 2
Да + Нет + Отменна - 3
Да + Нет - 4
Повтор + Отмена - 5
Отмена + Повторить + Продолжить - 6

MB_ICONWARNING - " ! "
MB_ICONERROR - " X "
MB_ICONINFORMATION - " i "
MB_ICONQUESTION - " ? "

Код:

Var i:integer;
begin
i:=application.MessageBox('text','caption',0+MB_IconError);
if i=... then... //  здесь пишешь цифру и код который надо исполнять
end;

Рустам · 15.01.2008, 23:22

Спасибо Air!!!

mihali4 · 16.01.2008, 01:26

В хэлпе приведен пример, правда, не совсем удачный.
Привожу свой:
if MessageBox(handle, PChar('Заголовок'), PChar('Вопрос'), MB_ABORTRETRYIGNORE)=IDABORT then
........

15.01.2008, 22:38	#1
Рустам Форумчанин Регистрация: 04.07.2007 Сообщений: 260	MessageBox??? Приветствую Всех! Подскажите, как узнать на какую кнопку, именно, нажал пользователь в диалоге messagebox? Если не затруднит, то пжлста, пояснения пишите с кодом!!! (Ну-у-у, или код с пояснением!!! ) Хорошо не там, где нас нет, а там, где нас еще небыло!!!

15.01.2008, 23:02	#2
Air Участник клуба Регистрация: 30.04.2007 Сообщений: 1,307	Если я правильно понял вотрос, то: 1 - Ok 2 - Отмена 3 - Прервать 4 - Повтор 5 - Пропустить 6 - Да 7 - Нет 8 - - 9 - - 10 - Повторить 11 - Продолжить ___________________________________ ___ Ok - 0 Ok + Отмена - 1 Прервать + Повтор + Пропустить - 2 Да + Нет + Отменна - 3 Да + Нет - 4 Повтор + Отмена - 5 Отмена + Повторить + Продолжить - 6 MB_ICONWARNING - " ! " MB_ICONERROR - " X " MB_ICONINFORMATION - " i " MB_ICONQUESTION - " ? " Код: `Var i:integer; begin i:=application.MessageBox('text','caption',0+MB_IconError); if i=... then... // здесь пишешь цифру и код который надо исполнять end;` Всё гениальное - просто!

15.01.2008, 23:22	#3
Рустам Форумчанин Регистрация: 04.07.2007 Сообщений: 260	Спасибо Air!!! Хорошо не там, где нас нет, а там, где нас еще небыло!!!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
messageBox поверх всех окон, возможно ли?	Kashp	Win Api	13	28.02.2010 18:33
Зацените мой MessageBox	Altera	Софт	1	29.10.2008 15:17
Корректное закрытие MessageBox	Tan4ik	Помощь студентам	4	02.05.2008 01:21
как убрать excel'овские messagebox?	aslanbek	Общие вопросы Delphi	0	15.03.2008 19:47
как убрать excel'овские messagebox?	aslanbek	Общие вопросы Delphi	0	15.03.2008 19:47

16.01.2008, 01:26	#4
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	В хэлпе приведен пример, правда, не совсем удачный. Привожу свой: if MessageBox(handle, PChar('Заголовок'), PChar('Вопрос'), MB_ABORTRETRYIGNORE)=IDABORT then ........