Как узнать, что нажал пользователь, при вызове MessageBox()
Небольшой примерчик:
procedure TForm1.Button1Click(Sender: TObject);
var
id : integer;
begin
id := MessageBox(0, 'текст', 'заголовок', MB_YESNOCANCEL);
if id = ID_YES then MessageBox(0, 'Вы нажали YES', '', 0);
if id = ID_NO then MessageBox(0, 'Вы нажали NO', '', 0);
if id = ID_CANCEL then MessageBox(0, 'Вы нажали CANCEL', '', 0);
end;
Список возвращаемых значений:
IDABORT
IDCANCEL
IDIGNORE
IDNO
IDOK
IDRETRY
IDYES
Список типов MessageBox:
MB_ABORTRETRYIGNORE
MB_OK
MB_OKCANCEL
MB_RETRYCANCEL
MB_YESNO
MB_YESNOCANCEL
MB_ICONEXCLAMATION, MB_ICONWARNING
MB_ICONINFORMATION, MB_ICONASTERISK
MB_ICONQUESTION
MB_ICONSTOP, MB_ICONERROR, MB_ICONHAND
MB_APPLMODAL
MB_SYSTEMMODAL
MB_TASKMODAL
MB_DEFAULT_DESKTOP_ONLY
MB_HELP
MB_RIGHT
MB_RTLREADING
MB_SETFOREGROUND
MB_TOPMOST
MB_SERVICE_NOTIFICATION
SLAyer
Другие статьи
По всем вопросам и предложениям по сайту пишите на info@comp-info.ru  
|