como delphi.com.ar, yo también me hice mis funciones para simplificar
Const
SInfo='Información';
SError='Error';
//muestra un mensaje de error
function ShowError(Cad:string):boolean;
begin
Application.MessageBox(Pchar(Cad),SError,MB_OK + MB_ICONERROR);
Result:=false;
end;
//muestra un mensaje de información
function ShowInfo(Cad:string):boolean;
begin
Application.MessageBox(Pchar(Cad),SInfo,MB_OK + MB_ICONEXCLAMATION);
Result:=false;
end;
|