Buscar por:

Função que traduz o messagedlg

Código

{ESTA FUNÇÃO TEM COMO OBJETIVO CRIAR UM MessageDialog COM TODOS OS BOTÕES EM PORTUGUES}

Uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

function cria_mensa(Mensa, titulo: string; DialogType: TMsgDlgType;

  Buttons: TMsgDlgButtons; HelpContext: Integer): string;

var

 Mensagem:TForm;

 I: INTEGER;

begin

 Mensagem:=  CreateMessageDialog(mensa,dialogtype,buttons);

 Mensagem.Caption:=TITULO;

 WITH MENSAGEM DO

 for i := 0 to ComponentCount - 1 do

     if Components[i] is TButton then

       with TButton(Components[i]) do

        begin

          case ModalResult of

            mrYes         : Caption := 'SIM';

            mrNo          : Caption := 'NÃO';

            mrOK          : Caption := 'OK';

            mrCancel      : Caption := 'CANCELAR';

            mrAbort       : Caption := 'ABORTAR';

            mrRetry       : Caption := 'REPETIR';

            mrIgnore      : Caption := 'IGNORAR';

            mrAll         : Caption := 'TODOS';

            mrNoToAll     :

                begin

                Caption := 'Não P/Todos';

                Width   := 90;

                end;

            mrYesToAll    :

                begin

                Caption := 'Sim p/todos';

                Width := 90;

                end;

           end;

        end;

        mensagem.ShowModal;

        case Mensagem.ModalResult of

             mrYes       :result := 'SIM';

             mrNo        :result := 'NÃO';

             mrOK        :RESULT := 'OK';

             mrCancel    :RESULT := 'CANCELAR';

             mrAbort     :RESULT := 'ABORTAR';

             mrRetry     :RESULT := 'REPETIR';

             mrIgnore    :RESULT := 'IGNORAR';

             mrAll       :RESULT := 'TODOS';

             mrNoToAll   :RESULT := 'NÃO P/TODOS';

             mrYesToAll  :RESULT := 'SIM P/TODOs';

        end;

     FreeAndNil(Mensagem);

end;

//COMO USAR

var

 retorno : string;

var

 retorno : string;

begin

 retorno := gmsg.cria_mensa('texto da mensagem', 'TITULO',mtWarning,[mbYes,mbNo],0);

{PARAMETROS

1) TEXTO DA MENSAGEM

2) TITULO DA JANELA

3) DialogType - TIPO DIALOGO VER TIPOS MESSAGDLG

4) BOTOES 

5) HELP DE CONTEXTO

RETORNO

   STRING CONTENDO O BOTÃO CLICADO}