A continuación os mostramos algunas funciones y procedimientos para mostrar mensajes personalizados utilizando la función "application.MessageBox" que permite personalizar el título del mensaje, así como el texto y los botones a mostrar. Esta función también devuelve el botón pulsado para obrar en consecuencia:

//mensaje de error, con el botón "Aceptar"
procedure msError (mensaje, titulo : String);
begin
  application.MessageBox(pchar(mensaje),
      pchar(titulo), (MB_OK + MB_ICONSTOP));
end;

//mensaje de información, con el botón "Aceptar"
procedure msInfo (mensaje, titulo : String);
begin
  application.MessageBox(pchar(mensaje),
      pchar(titulo), (MB_OK + MB_ICONINFORMATION));
end;

//mensaje de confirmación, con los botones Sí/No, devuelve True si se pulsa "Sí"
//el botón por defecto será "Sí"
function msSi (mensaje, titulo : String) : boolean;
begin
  if application.MessageBox (pchar(mensaje),
      pchar(titulo), (MB_YESNO + MB_ICONQUESTION)) = IDYES then
    result := true
  else
    result := false;
end;

//mensaje de confirmación, con los botones Sí/No, devuelve True si se pulsa "Sí"
//el botón por defecto será "No"
function msSin (mensaje, titulo : String) : boolean;
begin
  if application.MessageBox (pchar(mensaje),
      pchar(titulo), (MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)) = IDYES then
    result := true
  else
    result := false;
end;


//mensaje de exclamación, con los botones Aceptar/Cancelar, devuelve True si se pulsa "Aceptar"
//el botón por defecto será "Aceptar"
function msOK (mensaje, titulo : String) : boolean;
begin
  if application.MessageBox (pchar(mensaje),
      pchar(titulo), (MB_OKCANCEL + MB_ICONWARNING)) = IDOK then
    result := true
  else
    result := false;
end;

//mensaje de exclamación, con los botones Aceptar/Cancelar, devuelve True si se pulsa "Aceptar"
//el botón por defecto será "Cancelar"
function msOKn (mensaje, titulo : String) : boolean;
begin
  if application.MessageBox (pchar(mensaje),
      pchar(titulo), (MB_OKCANCEL + MB_DEFBUTTON2 + MB_ICONWARNING)) = IDOK then
    result := true
  else
    result := false;
end;

//mensaje de exclamación, con el botón Aceptar
procedure msAtencion (mensaje, titulo : String);
begin
  application.MessageBox(pchar(mensaje),
      pchar(titulo), (MB_OK + MB_ICONWARNING));
end;

Publicado el: 2005-07-26