Fórum definir Caption em todos os forms #339805

function AbrirForm(AForm: string; AShow: Integer = 0): TForm;
var
  Pc                          : TPersistentClass;
  frmChamado                  : TForm;
  I                           : Integer;
begin
  try
    Screen.Cursor := crHourGlass;
    {Procura a class o form passado por parâmetro}
    Pc := GetClass(´T´ + AForm);
    if (Pc <> nil) then
    begin
      frmChamado := nil;
      I := 0;
      {Procura pra saber se está aberto}
      while I < Screen.FormCount do
      begin
        if Screen.Forms[I] is Pc then
          frmChamado := Screen.Forms[I];
        Inc(I);
      end;
      {Se não instanciado cria.}
      if frmChamado = nil then
      begin
        try
          {Cria o form passado por parâmetro}
          frmChamado := TFormClass(Pc).Create(frmChamado);
          {Cria um evento onKeyDown pra ele}
          frmChamado.KeyPreview := True;
          frmChamado.OnKeyDown := frmAmerica.AdicionarAtalho;
          Result := frmChamado;
          case AShow of
            1: frmChamado.Show;
            2: frmChamado.ShowModal;
          end;
        except on E: Exception do
          begin
            MessageDlg(´Ocorreu um erro ao carregar esta função.´ + #13 +
              ´Erro original: ´ + 1313 +
              E.Message, mtWarning, [mbOk], 0);
            Result := nil;
            Exit;
          end;
        end;
      end
        {Se instanciado da Show ou ShowModal}
      else
      begin
        case AShow of
          1: frmChamado.Show;
          2: frmChamado.ShowModal;
        end;
        Result := frmChamado;
      end;
    end
    else
    begin
      MessageDlg(´Ocorreu um erro ao carregar esta função.´ + #13 +
        ´Janela: ´ + AForm, mtWarning, [mbOk], 0);
      Result := nil;
    end;
    Screen.Cursor := crDefault;
  except
    Result := nil;
  end;
end;

AbrirForm(´frmCadastroCliente´, 2);

Initialization
  Classes.RegisterClass(TfrmCadastroCliente)
Finalization
  Classes.UnRegisterClass(TfrmCadastroCliente)