[DDim1000]

Подскажите пожалуйста, что нужно в условии 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

Целый день искал на сайтах, но так ничего не нашел.

[Bargest]

Функция возвращает число. Его надо сохранить и заюзать.

[DDim1000]

Сообщение от Bargest

... число. ... надо сохранить ...

А Как это число сохранить?

[Bargest]

Код:

iRes := MessageBox(...)
if iRes = ... then
 ...

или

Код:

if MessageBox(...) = ... then
 ...

Ваш К.О.

[DDim1000]

Сообщение от Bargest

Код:

if iRes = ... then

А что в место точек писать?

[Bargest]

Гугл - это не круто, да? тыц тыц тыц (подзаголовок Return value)

[caHek-2x]

вот тебе пример только на основе месседждлг ... вообщем одна и таже зараза ...

Код:

    if MessageDlg('Вы не промазали? Точно изменить 1 запись?', mtWarning,
      mbOKCancel, 0) = mrOK then
    begin

mrOK это делфийская константа 1 ... можно вместо нее написать
"...= 1 then..." 1 будет одно и тоже ....


upd ну вот на твоём примере будет както так ...

Код:

    if MessageBox(Self.Handle,
      PChar('...:...?'), PChar('....'), MB_YESNO + MB_ICONWARNING) = mrYes then
    begin

[NumLock]

а

Код:

  if MessageBox(Handle, '', '', MB_OKCANCEL)=IDOK then

Код:

  if MessageBox(Handle, '', '', MB_YESNO)=IDYES then

IDOK и IDYES из Windows. вообще:

Код:

const
  { Dialog Box Command IDs }
  {$EXTERNALSYM IDOK}
  IDOK = 1;          ID_OK = IDOK;
  {$EXTERNALSYM IDCANCEL}
  IDCANCEL = 2;      ID_CANCEL = IDCANCEL;
  {$EXTERNALSYM IDABORT}
  IDABORT = 3;       ID_ABORT = IDABORT;
  {$EXTERNALSYM IDRETRY}
  IDRETRY = 4;       ID_RETRY = IDRETRY;
  {$EXTERNALSYM IDIGNORE}
  IDIGNORE = 5;      ID_IGNORE = IDIGNORE;
  {$EXTERNALSYM IDYES}
  IDYES = 6;         ID_YES = IDYES;
  {$EXTERNALSYM IDNO}
  IDNO = 7;          ID_NO = IDNO;
  {$EXTERNALSYM IDCLOSE}
  IDCLOSE = 8;       ID_CLOSE = IDCLOSE;
  {$EXTERNALSYM IDHELP}
  IDHELP = 9;        ID_HELP = IDHELP;
  {$EXTERNALSYM IDTRYAGAIN}
  IDTRYAGAIN = 10;
  {$EXTERNALSYM IDCONTINUE}
  IDCONTINUE = 11;

[caHek-2x]

mrOk и idOk это одно и тоже вообщем ...

[angvelem]

С какого перепугу? Если константы совпадают, это не означает одно и тоже. Что в Windows, что в Дельфи эти константы однажды могут поменяться. И что тогда делать будешь?

[caHek-2x]

Сообщение от angvelem

С какого перепугу?

Код:

const
  mrNone     = 0;
  mrOk       = idOk;
  mrCancel   = idCancel;
  mrAbort    = idAbort;
  mrRetry    = idRetry;
  mrIgnore   = idIgnore;
  mrYes      = idYes;
  mrNo       = idNo;
  mrAll      = mrNo + 1;
  mrNoToAll  = mrAll + 1;
  mrYesToAll = mrNoToAll + 1;
  mrClose    = mrYesToAll + 1;

в теории и конец света когда то наступит ... и что тогда ты будешь делать ?)

[angvelem]

Константы на то и константы, чтобы пользоваться их символьными именами а не значениями. Производитель всегда оставляет за собой право изменить их (и не только их) не поставив лично тебя в известность. Ну а конец света, это круто - наверно от большого ума добавлено.

[caHek-2x]

ну спасибо за комплименты про ум ...
я не предлагал пользоваться значениями ... я сказал что константы mrOk и idOk одно и тоже ... в текущих средах они одинаковы и я привел вырезку из файла ... где идет их приравнивание ...
если виндоус обновит их значение то и проги скоплированные придется переделывать т.к. они скомпилированы в той среде где прописаны именно те значения констант что были "типо до изменения их в винде"
это раз ...
два я не очень уверен что виндоус будет менять значения констант ... от этого может много прог вылететь ... поэтому и привел сравнение про конец света ...
три... делфи когда обновляется тоже многое может изменить и как ты выразился "что ты будешь делать" ... ты ничего не предъявишь и будешь переделывать ... как с переходом с 7 на 10 если не ошибаюсь в версиях ... у многих проблема с кодировками пошла ... приходилось дописывать править проэкты ...