Buscar

Converte botão e título do messagedlg(melhor jeito)

Código

function MessageDlg(const Mensagem : String; aDlgType : TMsgDlgType; aBotao : TMsgDlgButtons) : Word;overload;

function TForm1.MessageDlg(const Mensagem: String; aDlgType: TMsgDlgType; aBotao: TMsgDlgButtons): Word;
var
  Form : TForm;
begin
  Form:= CreateMessageDialog(Mensagem,aDlgType, aBotao);
  (Form.FindComponent('Yes') as TButton).Caption:= 'Sim';
  (Form.FindComponent('No') as TButton).Caption:= 'Não';
  (Form.FindComponent('Cancel') as TButton).Caption:= 'Cancelar';
  if adlgtype=mtwarning then form.Caption:='Atenção';
  if adlgtype=mtconfirmation then form.Caption:='Confirmação';
  if adlgtype=mterror then form.Caption:='Erro';
  if adlgtype=mterror then form.Caption:='Erro';

  Result:= Form.ShowModal;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 30/10/09
Por: Gabriel
Visualizada: 3169 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009