Caixa de mensagens colorida

helldanger1 · Jun 14, 2009

Que tal uma caixa de mensagens um pouco mais editada? Podemos especificar uma message dialog através de CreateMessageDialog
extern PACKAGE Forms::TForm* __fastcall CreateMessageDialog
(const System::AnsiString Msg,
TMsgDlgType DlgType, TMsgDlgButtons Buttons);

CreateMessageDialog retorna uma caixa de diálogos do tipo especificado pelo parâmetro DlgType
mbYes
Um botão com "Yes" na face

mbNo
Um botão com "No" na face

mbOK
Um botão com "OK" na face

mbCancel
Um botão com "Cancel" na face

mbAbort
Um botão com "Abort" na face

mbRetry
Um botão com "Retry" na face

mbIgnore
Um botão com "Ignore" na face

mbAll
Um botão com "All" na face

mbNoToAll
Um botão com "No to All" na face

mbYesToAll
Um botão com "Yes to All" na face

mbHelp
Um botão com "Help" na face

e com o botão indicado no parâmetro Buttons.

mtWarning
A caixa de mensagens contém o símbolo de um ponto de exclamação amarelo.

mtError
A caixa de mensagens contém um sinal vermelho de stop (um X).

mtInformation
A caixa de mensagens contém um "i" azul.

mtConfirmation
A caixa de mensagens contém um ponto de interrogação azul.

mtCustom
A caixa de mensagens não contém bitmap. O Caption da caixa de mensagens é o nome do executável.

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
void MinhaShowMsg(String msg)
{
TForm *ShowMsg = CreateMessageDialog(msg, mtError, TMsgDlgButtons() << mbAbort);
ShowMsg->Caption = "ERRO DE EXECUÇÂO...";
ShowMsg->Color = clYellow;
ShowMsg->Font->Color = clRed;
ShowMsg->Font->Style = TFontStyles()<<fsBold<<fsItalic;
ShowMsg->Font->Name = "Courier New";
ShowMsg->Font->Size = 9;
ShowMsg->ShowModal();
delete ShowMsg;
ShowMsg = NULL;
}
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
MinhaShowMsg("Erro durante execução... Reinicie o computador...");
}
//---------------------------------------------------------------------------

Caixa de mensagens colorida

helldanger1

GForum VIP