Felipe Eduardo R. Mesquita

@Gabriela Doehler Prefiro o bluecase. pela taxa de resposta e por 2 anos de garantia.

@Gabriela Doehler Acredito que vale pelo custo x beneficio, veja as opiniões nos links abaixo: Bluecase Concordia

Pode ser problema de drivers...ou tente reinstalar o jogo novamente. Se for para esse pc que está no seu perfil é claro.

@Nicollas Lott Boa fonte...Uso essa aqui e nunca tive problemas:Fonte muito boa

@juliodspg Eu entendo...mas fonte não é uma coisa que economiza...eu nunca tive problemas com a marca...você deu azar mesmo.

@juliodspg da pra devolver tranquilo.

Eu também trocaria...não vejo o porque economizar na fonte...Perigoso!

@arthurdonda Em sites confiáveis...acredito que possa encontrar diferenças de valores e economizar mais...ou melhorar por exemplo a placa de vídeo. Na minha opinião, eu trocaria a placa de vídeo para uma de 8gb. A fonte funciona normalmente.

@Miguel25def Trocaria a memoria por duas do link abaixo, ainda economizava dinheiro: Memoria na Promoção

@arthurdonda Se você fizer uma pesquisa melhor, acredito que da pra economizar mais no preço das peças citadas acima.

@arthurdonda Ficaria com a segunda opção + memoria, veja que está na promoção: Memoria na promoção

@gil_lima Veja o tópico abaixo: https://www.clubedohardware.com.br/forums/topic/1214156-dll-comum-do-shell-do-windows-não-está-respondendo/

@juliodspg Tenho a fonte abaixo e não tenho problemas: Fonte Gamer

Acredito que essa questão é mito...o que pode acontecer é de demorar mais ligando no computador.

@Marcelo Bialeski Ja tentou reinstalar o firefox?

Eu iria na de 16 = 2 x 8.

Achei barato e com garantia: 228,00 ta barato

Obrigado por ajudar, se eu começar um projeto do zero, ele compila e executa normalemnte....as vezes que para do nada.

Bom dia a todos! Estou a dias tentando identificar qual o causador desse problema no vídeo abaixo: Erro ao compilar DELPHI Já desabilitei anti-vírus, firewall e nada!!! Isso acontece quando eu estou bem no meio do projeto...Já é a 5 vez que tento concluir esse projeto, sempre começando do zero...Quando chego no meio ele para de funcionar do nada e fica fechando a janela do programa. Se alguém puder me ajudar eu agraço muito!

Muito obrigado pela ajuda.

Segue o codigo: unit uFrmMenu; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.FB, FireDAC.Phys.FBDef, FireDAC.VCLUI.Wait, Data.DB, FireDAC.Comp.Client; type TFrmMenu = class(TForm) MainMenu1: TMainMenu; Cadastros1: TMenuItem; Clientes1: TMenuItem; Produtos1: TMenuItem; ransportadoras1: TMenuItem; Emisso1: TMenuItem; NFe1: TMenuItem; NFCe1: TMenuItem; Sair1: TMenuItem; Conexao: TFDConnection; procedure Sair1Click(Sender: TObject); procedure Clientes1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmMenu: TFrmMenu; implementation {$R *.dfm} uses uFrmCadastroClientes; procedure TFrmMenu.Clientes1Click(Sender: TObject); begin if frmCadastroClientes = nil then begin Application.CreateForm(TFrmCadastroClientes, frmCadastroClientes); end; frmCadastroClientes.Show; end; procedure TFrmMenu.Sair1Click(Sender: TObject); begin Close; end; end. unit uFrmCadastroClientes; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Data.DB, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.Mask, Vcl.DBCtrls, Vcl.CheckLst, Vcl.ExtCtrls; type TFrmCadastroClientes = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; txtValorPesquisa: TEdit; btnPesquita: TButton; DBGrid1: TDBGrid; Pes: TLabel; QueTabela: TFDQuery; QueTabelaCODIGO: TIntegerField; QueTabelaNOME: TStringField; QueTabelaPESSOA: TStringField; QueTabelaCNPJ_CPF: TStringField; QueTabelaIE_RG: TStringField; QueTabelaENDERECO: TStringField; QueTabelaNUMERO: TStringField; QueTabelaBAIRRO: TStringField; QueTabelaCOMPLEMENTO: TStringField; QueTabelaCEP: TStringField; QueTabelaCODIGO_CIDADE: TIntegerField; QueTabelaNOME_CIDADE: TStringField; QueTabelaCODIGO_UF: TIntegerField; QueTabelaNOME_UF: TStringField; Label1: TLabel; txtCodigo: TDBEdit; DataSource1: TDataSource; Label2: TLabel; txtNome: TDBEdit; lblCPFCNPJ: TLabel; txtCPFCNPJ: TDBEdit; lblIERG: TLabel; txtIERG: TDBEdit; Label6: TLabel; txtEndereco: TDBEdit; Label7: TLabel; txtnumero: TDBEdit; Label8: TLabel; txtBairro: TDBEdit; Label9: TLabel; txtComplemento: TDBEdit; Label10: TLabel; txtCEP: TDBEdit; btnIncluir: TButton; btnAlterar: TButton; btnExlcuir: TButton; btnSalvar: TButton; btnCancelar: TButton; lcCidade: TDBComboBox; lcEstado: TDBComboBox; Label4: TLabel; Label5: TLabel; DBRadioGroup1: TDBRadioGroup; procedure AtivaDesativaBotoes; procedure btnIncluirClick(Sender: TObject); procedure btnAlterarClick(Sender: TObject); procedure btnSalvarClick(Sender: TObject); procedure btnCancelarClick(Sender: TObject); procedure btnExlcuirClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender: TObject); procedure btnPesquitaClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmCadastroClientes: TFrmCadastroClientes; implementation {$R *.dfm} uses uFrmMenu; procedure TFrmCadastroClientes.AtivaDesativaBotoes; begin btnIncluir.Enabled := not btnIncluir.Enabled; btnExlcuir.Enabled := not btnExlcuir.Enabled; btnAlterar.Enabled := not btnAlterar.Enabled; btnCancelar.Enabled := not btnCancelar.Enabled; btnSalvar.Enabled := not btnSalvar.Enabled; end; procedure TFrmCadastroClientes.btnAlterarClick(Sender: TObject); begin if not QueTabela.FieldByName('Codigo').IsNull then begin AtivaDesativaBotoes; QueTabela.Edit; txtNome.SetFocus; end; end; procedure TFrmCadastroClientes.btnCancelarClick(Sender: TObject); procedure LimparEdits(AControl: TComponent); var vLoop: Integer; begin AtivaDesativaBotoes; for vLoop := 0 to AControl.ComponentCount - 1 do // ComponentCount retorna a qtde de componentes que o begin // o parent é o AControl, ou seja, somente os componentes que { Se for um componente do tipo TEdit, } // estão ligados a ele { então iremos limpar o conteúdo, caso } { contrário, iremos rechamar a procedure } { pois o AControl pode ser um painel e temos } { que limpar inclusive os edits do painel } if AControl.Components[vLoop].ClassType = TEdit then TEdit(AControl.Components[vLoop]).Clear // Aqui utilizamos o Cast para obter as propriedades e métodos do edit } else LimparEdits(AControl.Components[vLoop]); end; end; begin LimparEdits(Self); // O processo irá iniciar limpando os edits que estão diretamente // focados no form end; procedure TFrmCadastroClientes.btnExlcuirClick(Sender: TObject); begin if not QueTabela.FieldByName('Codigo').IsNull then begin QueTabela.Delete; ShowMessage('Cliente Excluido!'); end else begin ShowMessage('Nenhum Cliente Selecionado!'); end; end; procedure TFrmCadastroClientes.btnIncluirClick(Sender: TObject); begin AtivaDesativaBotoes; QueTabela.Append; txtNome.SetFocus; end; procedure TFrmCadastroClientes.btnPesquitaClick(Sender: TObject); begin QueTabela.Close; QueTabela.SQL.Clear; QueTabela.SQL.Add('Select * from Tab_Clientes where nome like :pPesq'); QueTabela.ParamByName('pPesq').AsString := '%' + txtValorPesquisa.Text + '%'; QueTabela.Open; end; procedure TFrmCadastroClientes.btnSalvarClick(Sender: TObject); begin try QueTabela.Post; AtivaDesativaBotoes; ShowMessage('Cliente Gravado com Sucesso!'); except ShowMessage('Erro ao Gravar!'); end; end; procedure TFrmCadastroClientes.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; procedure TFrmCadastroClientes.FormDestroy(Sender: TObject); begin FrmCadastroClientes := nil; end; end.

Bom dia, agradeço pela ajuda, segue em anexo. Emissor de NFCE e NFE.rar

Boa tarde a todos! De vez em quando, acontece isso comigo, o Delphi compila a aplicação mas ela não roda ou fecha sozinha...Para resolver eu estou sempre tendo que fechar o delphi e criar uma nova aplicação. Alguém poderia me ajudar conforme o vídeo abaixo? Agradeço pela atenção.

como faz isso? hahahah

Boa tarde a todos! Alguém sabe como arrumar isso?