MessageDlg Traduzido

Delphi

10/12/2004

Ola,,

Como faço para traduzir o testo dos botoes yes no , e colocar nome na barra de titulo do messagedlg ???

tinha mandado uma outra pergunta dessa, mas nao consigo ver a resposta, da um erro na pagina.

obrigado!


By_gandalf

By_gandalf

Curtidas 0

Respostas

Macario

Macario

10/12/2004

Olá colega, bom dia.

Uma função facil:
[color=green]

Function Mensagem( Texto, titulo: String; botoes: LongInt ): Boolean;
Begin
  MessageBeep ( 0 );
  // 32 = Símbolo Pergunta e botão Ok;
  // 36 = Símbolo Pergunta e botão Sim e não;
  // 20 = Símbolo Cancela e botão Sim e não;
  // 16 = Símbolo Cancela e botão Ok;
  // 48 = Simbolo Exclamação e botão Ok;
  // 52 = Simbolo Exclamação e botão Sim/Não;
  Application.NormalizeTopMosts;
  If Application.MessageBox( Pchar( Texto ), Pchar(Titulo) , botoes ) = IDYES Then
    Result := True
  Else
    Result := False;
  Application.RestoreTopMosts;
End;
[/color]


Exemplo de utilização

Mensagem(´Texto da mensagem´,´Texto da barra da mensagem´,48);

if Mensagem(´Confirma exclusão?´,´Confirmar:´,36) then
 Tabela.Delete;



espero que ajude


GOSTEI 0
POSTAR