Ошибка выполнения Messagedlg

Комментарии

• Stalker4 123

  September 2012 отредактировано 08:34

  написал: »

  вызов

  if MessageDlg(' текст ', mtWarning, [mbOk,   mbCancel], 0) = mrOK then
      begin ...
  

  Выдает
  Could not convert variant of type (Array Variant) into type (Integer)
  
  Что не так?
  Delphi6, FR 4.12.12

  "не так" то, что вы не читали документацию по FS. А там этот момент описан.
  
  Надо писать вот так:
  MessageDlg('текст', mtWarning, mbOk+mbCancel, 0)