
Copyright by,
Sebastiao Elivaldo Ribeiro
elivaldo@utranet.com.br
--------------------------

TMsgDlg e' um componente para o envio de mensagens ao usuario de uma
forma mais personalizada. Voce podera inclusive usar o metodo MessageDlg em substituicao
a funcao MessageDlg original do Delphi. Assim:

onde existir:

  if MessageDlg('Texto...', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    Close;

substitua por:

  if MsgDlg1.MessageDlg('Texto...', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    Close;




Principais Propriedades:


  Beep: Boolean;

    Se igual a True emite um beep imediatamente antes da apresentacao da mensagem.


  BtnDefault: Integer;

    Numero do botao para o foco inicial (primeiro = 0, segundo = 1, etc).


  BtnHeight: Integer;

    Altura, em pixels, dos botoes.


  BtnSpace: Integer;

    Distancia, em pixels, entre os botoes.


  BtnWidth: Integer;

    Largura, em pixels, dos botoes


  Buttons: TMsgDlgButtons;

    Array com os botoes que devem ser apresentados. Ex.: [mbYes, mbNo, mbCancel];


  Color: TColor;

    Cor da janela de apresentacao da mensagem.


  Font: TFont;

    Fonte para o texto da mensagem e dos botoes.


  HelpContext: Integer;

    Caso o botao Help seja apresentado esta propriedade podera conter um numero referente
    ao topico do helpfile.


  MessageType: TMessageType;

    Tipo de mensagem. Podera ser uma das seguintes constantes:

      mtWarning = mensagem de alerta
      mtConfirmation = pedido de confirmacao
      mtInformation = mensagem de informacao
      mtError = mensagem de erro
      mtCustom = mensagem customizada


  ShowGlyph: Boolean;

    Propriedade para habilitar ou nao a apresentacao do Glyph de cada botao. Se igual a True
    apresenta


  Text: string;

    Texto da mensagem a ser apresentada. Use o caracter "|" para dividir a apresentacao da
    mensagem em mais de uma linha


  Title: string;

    Titulo da caixa de dialogo. Se omitido assume o titulo default para cada tipo de mensagem



Metodos:

  Execute: Word;

    Executa o dialogo e aguarda o pressionamento de um dos botoes. Retorna o botao pressionado
    Por exemplo: MsgDlg1.Execute = mrYes


  MessageDlg(Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: Longint): Word;
 
    Este metodo usa a mesma sintaxe da funcao MessageDlg original do Delphi (o que facilita
    uma substituicao desta funcao pelo componente TMsgDlg).
    Exemplo:

      MsgDlg1.MessageDlg('Testando componente', mtInformation, [mbOk], 0);

