Incompatible types: 'tmessagenbuttons' and 'integer' con App.Messagebox

[purhé]

Pues voy a checar otra vez. Pero cuando vaya al trabajo porque pues hoy no trabajo. Sin embargo me supongo que esto no deberia pasar porque las units necesarias para esta funcion estan incluidas en la instalacion de Delphi (Forms, Windows) y en la unit donde llamo el messagebox. Y esto me hace pensar que en realidad se trata de otra cosa. Pero pues ya avisare.

Salu2.

[[Lepe]]

Unidad Qdialogs:

Código Delphi [-]
TMsgDlgBtn = (mbNone, mbOk, mbCancel, mbYes, mbNo, mbAbort, mbRetry, mbIgnore);
  TMsgDlgButtons = set of TMsgDlgBtn;

Unidad windows, la que se llama con Application.messageBox

Código Delphi [-]
  { MessageBox() Flags }
  {$EXTERNALSYM MB_OK}
  MB_OK = $00000000;
  {$EXTERNALSYM MB_OKCANCEL}
  MB_OKCANCEL = $00000001;
  {$EXTERNALSYM MB_ABORTRETRYIGNORE}
  MB_ABORTRETRYIGNORE = $00000002;
  {$EXTERNALSYM MB_YESNOCANCEL}
  MB_YESNOCANCEL = $00000003;
  {$EXTERNALSYM MB_YESNO}
  MB_YESNO = $00000004;
  {$EXTERNALSYM MB_RETRYCANCEL}
  MB_RETRYCANCEL = $00000005;

Creo que estas mezclando las constantes, usa siempre las que tienen el guion bajo.

Un saludo y espero que sea eso