Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.01.2013, 20:19
DDim1000 DDim1000 вне форума
Прохожий
 
Регистрация: 28.12.2012
Сообщения: 18
Репутация: 10
Счастье Как из MessageBox передать ответ в if?

Подскажите пожалуйста, что нужно в условии if прописать чтобы определить какой ответ дал пользователь?
Пробовал так, но так выходить ошибка:
Код:
 MessageBox(
    Self.Handle
    , PChar('...: "'+DBGrid1.Fields[0].asString+' '+DBGrid1.Fields[1].asString+'"...?')
    , PChar('....')
    , MB_YESNO + MB_ICONWARNING
  )=1
if MB_YES then
begin
...
end
Целый день искал на сайтах, но так ничего не нашел.
Ответить с цитированием
  #2  
Старый 07.01.2013, 20:22
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Функция возвращает число. Его надо сохранить и заюзать.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #3  
Старый 07.01.2013, 20:30
DDim1000 DDim1000 вне форума
Прохожий
 
Регистрация: 28.12.2012
Сообщения: 18
Репутация: 10
По умолчанию

Цитата:
Сообщение от Bargest
... число. ... надо сохранить ...
А Как это число сохранить?
Ответить с цитированием
  #4  
Старый 07.01.2013, 20:32
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Код:
iRes := MessageBox(...)
if iRes = ... then
 ...
или
Код:
if MessageBox(...) = ... then
 ...
Ваш К.О.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
DDim1000 (07.01.2013)
  #5  
Старый 07.01.2013, 21:18
DDim1000 DDim1000 вне форума
Прохожий
 
Регистрация: 28.12.2012
Сообщения: 18
Репутация: 10
Счастье

Цитата:
Сообщение от Bargest
Код:
if iRes = ... then

А что в место точек писать?
Ответить с цитированием
  #6  
Старый 07.01.2013, 21:23
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Гугл - это не круто, да? тыц тыц тыц (подзаголовок Return value)
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 04:28.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025