Delphi dicas

Função que traduz o messagedlg

{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}

por : Ricardo L. S.