Fórum Unit somente com procedures e function #296527

unit MyLib; 

{$WARNINGS OFF} 
{$HINTS OFF} 

interface 

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  Menus, Buttons, ExtCtrls, StdCtrls, ComCtrls, ToolWin, ImgList, DBTables, DB, 
  DbGrids, ShellApi, Jpeg, XpMenu, Registry, Grids, Ambiente, Typinfo, DbCtrls; 

 
 
function Dc_MessageDlg(Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; IndiceHelp: LongInt; DefButton: TMOdalResult = mrNone; Portugues: Boolean = True): Word; 

implementation 

function Dc_MessageDlg(Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; IndiceHelp: LongInt; DefButton: TMOdalResult = mrNone; Portugues: Boolean = True): Word; 
var 
  I: Integer; 
  Mensagem: TForm; 
begin 
  Mensagem := CreateMessageDialog(Msg, AType, Abuttons); 
  Mensagem.HelpContext := IndiceHelp; 
  with Mensagem do begin 
    for i := 0 to ComponentCount - 1 do begin 
      if (Components[i] is TButton) then begin 
        if (TButton(Components[i]).ModalResult = DefButton) then begin 
          ActiveControl := TWincontrol(Components[i]); 
        end; 
      end; 
    end; 
    if Portugues then begin 
      if Atype = mtConfirmation then Caption := ´Confirmação´ 
      else if AType = mtWarning then Caption := ´Aviso´ 
      else if AType = mtError then Caption := ´Erro´ 
      else if AType = mtInformation then Caption := ´Informação´; 
    end; 
  end; 
  if Portugues then begin 
    TButton(Mensagem.FindComponent(´YES´)).Caption := ´&Sim´; 
    TButton(Mensagem.FindComponent(´NO´)).Caption := ´&Não´; 
    TButton(Mensagem.FindComponent(´CANCEL´)).Caption := ´&Cancelar´; 
    TButton(Mensagem.FindComponent(´ABORT´)).Caption := ´&Abortar´; 
    TButton(Mensagem.FindComponent(´RETRY´)).Caption := ´&Repetir´; 
    TButton(Mensagem.FindComponent(´IGNORE´)).Caption := ´&Ignorar´; 
    TButton(Mensagem.FindComponent(´ALL´)).Caption := ´&Todos´; 
    TButton(Mensagem.FindComponent(´HELP´)).Caption := ´A&juda´; 
  end; 
  Result := Mensagem.ShowModal; 
  Mensagem.Free; 
end; 
end.