MessageDlg

Previous  Top  Next

Sintaxis:

MessageDlg( <cTexto>, <nTipo>, <nBotones>, [ <nPosicion> ], [ <nBorderStyle> ] ) -> nValor

Argumentos:

<cTexto> es el texto del mensaje.

<nTipo> es el tipo de diálogo. Se pueden usar las constantes mtWarning, mtError, mtInformation, mtConfirmation y mtCustom.

<nBotones> es la combinación de botones que contendrá el diálogo. Se pueden usar las constantes mbYes, mbYesNo, mbYesNoCancel, mbOk, mbOkCancel y mbAbortRetryIgnore.

<nPosicion> es la posición donde aparecerá el diálogo. Se pueden usar las constantes poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly, poScreenCenter y poActiveCenter. Por defecto es poScreenCenter.

<nBorderStyle> es el edtilo del borde del diálogo. Se pueden usar las constantes bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow y bsSizeToolWindow.

Devuelve:

Según el botón usado para cerrar el diálogo, su valor es mrOk, mrCancel, mrAbort, mrRetry, mrIgnore, mrYes o mrNo.

   MessageDlg() muestra un diálogo de propósito general. La apariencia del diálogo la determinan los valores especificados por nTipo y por nBotones. El tipo mtCustom no muestra título y el valor devuelto por la función es el propio diálogo, para poder destruirlo manualmente.


Ejemplo:

   // Confirmar la salida del programa por parte del usuario
   if MessageDlg( "Terminar la aplicación?", mtConfirmation, mbOkCancel ) == mrOk
      Application:Terminate()
   endif

   // Mostrar un mensaje para que el usuario espere
   oDlg := MessageDlg( "Actualizando datos...", mtCustom )

   do while !Eof()
      Precio *= nIncremento
      DbSkip()
   enddo

   oDlg:Destroy() // Al ser de tipo mtCustom lo destruímos manualmente