Buscando por ahi encontre esta funcion q por cierto me vino al pelo
Aqui esta la descripcion de la misma por si te interesa y mas abajo un ejemplo de como usarla...
type TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);
type TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp);
type TMsgDlgButtons =
set of TMsgDlgBtn;
function CreateMessageDialog(
const Msg:
string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TForm;
Un ejemplo:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
begin
with CreateMessageDialog('Este es el mensaje de error!', mtError, mbOKCancel) do
try
Position := poScreenCenter;
Color := clwhite;
Caption := 'Titulo!';
ShowModal;
finally
Free;
end;
end;
Y lo puedes configurar como si fuese un formulario... con todas las opciones de uno... solo resta usar la imaginacion... y si no me equivoco no emite sonido! =)
{Saludos}