danielrgoes

Boa Tarde Estou usando o Delphi 2007 com o QR e coloquei um componente QRPDFFilter mais quando eu tento salva em PDF o arquivo salva danificado não consigo abrir da erro fala que o arquivo esta danificado alguém sabe o que pode ser

Boa Tarde Pessoal Estou precisando montar um programinha que pegue os anexos dos email que estao dentro de uma pasta do windows Mail e salve em uma pasta do windows alguém sabe como fazer isso

Boa Tarde eu tenho uma aplicaçao que utiliza o SQLQuery, CDS, DSP e DS esta funcionando normal utilizo o append, edit, post, delete porem aconteceu uma seguinte situação eu do um select em uma tabela e percorro ela inteira inserindo em uma outra tabela modulo.cds_desc_projeto.close; modulo.sql_desc_projeto.SQL.clear; modulo.sql_desc_projeto.SQL.Add('SELECT * FROM DESC_PROJETO '); modulo.sql_desc_projeto.SQL.Add(' WHERE COD_PROJETO = ' + IntToStr(modulo.cds_projetoCOD_PROJETO.Value)); modulo.cds_desc_projeto.Open(); modulo.cds_desc_projeto.First; while not modulo.cds_desc_projeto.Eof do begin modulo.cds_auxprojeto.Append; modulo.cds_auxprojetoCOD_PROJETO.Value := modulo.cds_desc_projetoCOD_PROJETO.Value; modulo.cds_auxprojeto.Post; modulo.cds_desc_projeto.Next; end; os dados gravam certinho porem quando eu vo no DBGrid eu tenho que editar um campo em tempo de execuçao então no evento DBGrid4CellClick eu coloco o codigo modulo.cds_auxprojeto.Edit; modulo.cds_auxprojetoCOD_PROJETO.Value := 1; modulo.cds_auxprojeto.post; mais quando passa pelo post da erro na hora de gravar estou colocando no evento OnafterPost do CDS o codigo pra gravar if TClientDataSet(tabela).ApplyUpdates(0) > 0 then ShowMessage('Erro na Gravação em : '+tabela.name); ou seja o ApplyUpdates(0) é maior que zero mais porque acontece isso ???????????

Ai quando eu fecho o Frm1 fecha td não deu certo

Boa tarde pessoal Estou com um problema eu tenho uma aplicaça que apos o login chama uma tela principal try FrmPrincipal := TFrmPrincipal.Create(self); // chama form main FrmPrincipal.ShowModal; finally FreeAndNil(FrmPrincipal); Application.Terminate; end; porem antes de ela aparecer eu tento chamr uma outra tela [ Frm1.show; porem o frm1 não aparece na frente do principal eu tenter fazer assim SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top,Form1.Width, Form1.Height, 0); mais ai quando eu chamo uma outra ela o Frm1 não sai mais da frente da aplicaçao como eu faço pra chamar um form na frente do outro

Olaaaa eu fiz isso mais quando eu vo exibi o form coloco no evento on click de um bitbutton Frm_projeto:= TFrm_projeto.Create(Application); Frm_projeto.Show; try Frm_projeto := TFrm_projeto.Create(Application); Frm_projeto.ShowModal; finally FreeandNil(Frm_projeto); end; nenhuma das duas formas da certo da o erro Cannot meke a visible windows modal

Nossaaaaaaaaaaa são telas prontas jahhhh td programadooo telas com codgos grandesss mais valeu pela ajuda abraços

Boa tarde pessoal Eu criei 2 Forms 1 como pai e outro como filho depois eu mudei a propriedade dos dois para normal novamente porem agora quando eu rodo o programa os dois form abrem juntos como faço para voltar ao normal

Bom dia Pessoal eu tenho um codigo para ordenar um DBGrid ligado em um DataSourse que por sua vez em ligado em um SQLQuery,CDS,DSP quando eu clico na coluna procedure TFrm_projeto.DBGrid4TitleClick(Column: TColumn); var i ,col:integer; begin Try for i:=0 to Column.Grid.FieldCount - 1 do begin DBGrid4.Columns.Items.Title.Font.Color:=ClBlack;//Cor da Fonte DBGrid4.COLUMNS.ITEMS.TITLE.FONT.STYLE := [];//Cot da Fonte DBGrid4.Columns.Items.Title.Color:=clBtnFace;//Cor do Fundo do Titulo Normal Column.Title.Color :=clSilver;//Cor do Fundo do Titulo Selecionado COLUMN.TITLE.FONT.STYLE := [FSBOLD]; Column.Title.Font.Color:=ClBlue; Column.Font.color:=clTeal; Col:= DBGrid4.Columns[Column.Index].Index; DBGrid4.Columns.Items.Font.color:=ClBlack; (modulo.DS_projeto.DataSet as TClientDataSet).IndexFieldNames := Column.FieldName; end; Except ShowMessage('Não foi possivel organizar'); End; end; Bom ele funciona muito bem porem agora eu estou precisando fazer o seguinte Ordenar da mesma forma potem o meu DBdrid é ligado em um DataSource mais agora o DS é ligado em um RXMemoryData como faço para ordenar dessa forma

Funcionou obrigado a todos

Antes de mais nada muito obrigado funcinou abre sim só tem um problema esse X,Y sai as cooredenadas da tela então se eu mexo o form não aparece ande eu clico tem soluçap pra isso

Bom dia pessoal eu coloquei um Menupopup na minh aplicaçao e liguei em um BitBtn mais eu gostaria de chamar o menu quando clica se com o botao esquerdo no botao e não com o direito do mouse Abraços

Bom dia pessoal Estou utilizando aquele memorydata do pacote RxLib para fazer uma tabela virtual eu inseri os dados dentro dele liguei em um DataSource e por ventura liguem em um DBGrid porem eu gostaria de sabe se tem como eu falser uma consulta nele tipo um SQl SELECT * FROM TABELA WHERE NOME = 'MEU NOME' ai o DBGrid me retornaria os valores encontrados?

Douglas agradeço muito a ajuda consegui fazer assim procedure TFrm_abrir_projeto.DBGrid1TitleClick(Column: TColumn); var i ,col:integer; begin Try for i:=0 to Column.Grid.FieldCount - 1 do begin DBGrid1.Columns.Items.Title.Font.Color:=ClBlack;//Cor da Fonte DBGrid1.COLUMNS.ITEMS.TITLE.FONT.STYLE := [];//Cot da Fonte DBGrid1.Columns.Items.Title.Color:=clBtnFace;//Cor do Fundo do Titulo Normal Column.Title.Color :=clSilver;//Cor do Fundo do Titulo Selecionado COLUMN.TITLE.FONT.STYLE := [FSBOLD]; Column.Title.Font.Color:=ClBlue; Column.Font.color:=clTeal; Col:= DBGrid1.Columns[Column.Index].Index; DBGrid1.Columns.Items.Font.color:=ClBlack; (modulo.DS_projeto.DataSet as TClientDataSet).IndexFieldNames := Column.FieldName; end; Except ShowMessage('Não foi possivel organizar'); End; end;

Douglas não deu certo não da o seguinte erro CDS:index 'ANOME_CLIENTE' not fond

Boa Tarde pessoal Gostaria de saber se tem como eu fazer o DbGrig organizar os dados clicando no titulo da coluna ou seja faze igual o Windows Explorer Abraços

Impressionante mais eu fiz isso e da o mesmo erroooooooooo imprecionante como não da pra volta atraz

Nossaaaaaaa Jhonas o projeto é enormeeeeee mais isso ta acontecendo em todas as aplicaçoes que eu faço esse processo acima não consigo reverter

Tem outra coisa a hora que eu abro minha aplicaçao ele inicializa os 2 forms juntos aonde era só pra abri o principal Form1

Eu já fiz isso jhonas Tem outra coisa a hora que eu abro minha aplicaçao ele inicializa os 2 forms juntos aonde era só pra abri o principal Form1

Pessoal é o seguinte Eu fiz um procesimento no meu sistema assim Mudei a propriedade FormStyle do Form1 para fsMDIForm e do form2 para fsFDMChild ou seja pro form1 ser pai do form2 porem eu voltei a propriedade para fsNormal porque não queria mais fazer isso ia deixa normal denovo mais agora quando eu vo da show no form2 da o seguinte erro Access violation at address 005396EC projeto.exe Read of address 00000273 o que sera que é isso

Muito bom o link Obrigadoooo vou tentar usar é um poco complexo mais vamos ver abraços

É assim eu utilizo o delphi 2007 com w XP e W Vista e eu desenvolvi um sistema todo em portugues por exemplo os meu captions do labels estao Nome Numero etc.. gostaria de colocar uma opçao linguagem que quando ele seleciona se de portigues pra estanhol por exemplo traduzi-se os captions por exmplo tem como faze isso

Boa Tarde pessoal Eu tenho um problema aki e nem sei se isso tem soluçao mais como alguns sistemas tem gostaria de saber se tem como mudar a linguagem do sistema ou seja colocar uma opçao que mude de portugues para ingles isso que existe nos sistemas é algum componente? abraços

Não deu certo aparece so os 3 primeiros numeros 523. . / -