Res: RES: RES: RES: [delphi-br] Foco nos campos da tela
Oi Claudiney. O ancestral é um modelo que tem a parte básica de todas as telas, menu, querys, entre outros. O problema que meu sistema é muito grande, não posso fazer algo que eu tenha que mudar tudo, e sim apenas no ancestra. Andresa De: Claudiney Cogo claudiney-lis...@n2solutions.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 14 de Maio de 2009 22:10:10 Assunto: RES: RES: RES: [delphi-br] Foco nos campos da tela Olá Andresa. Explique mais sobre como funciona essa herança que você ta usando. Esse ancestral que você disse é um form que você usa como modelo para outros? Uma idéia seria você criar um componente próprio a partir de um TEdit e incluir nele esse código.. Aí você usaria este novo componente ao invés do TEdit normal, nos casos em que precisar dessa função. _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2soluti ons.com.br/ www.n2solutions. com.br http://www.nfe. n2solutions. com.br/ www.nfe.n2solutions .com.br http://www.studion2 .com.br/ www.studion2. com.br De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Andresa Ferreira Enviada em: quinta-feira, 14 de maio de 2009 09:56 Para: delphi...@yahoogrup os.com.br Assunto: Res: RES: RES: [delphi-br] Foco nos campos da tela Claudiney Deu super certo esse comando. Porém não dá p/ colocar isso em cada campo do sistema, pois ele é muito grande. Eu tentei colocar isso no ancestral, mas acabo fazendo isso em todos os campos de uma vez, srsrsrs. Tem alguma ideia de como posso colocar isso no ancestral? Andresa _ _ __ De: Claudiney Cogo claudiney-listas@ n2solutions. com.br mailto:claudiney- listas%40n2solut ions..com. br Para: delphi...@yahoogrup os.com..br mailto:delphi- br%40yahoogrupos .com..br Enviadas: Quarta-feira, 13 de Maio de 2009 9:40:44 Assunto: RES: RES: [delphi-br] Foco nos campos da tela Andresa. Fiz um exemplo como você falou. Realmente acontece isso. Tendo borda, você clica e o Edit não recebe o foco. E só com o Edit acontece isso. Com radio Button e check Box, por exemplo, que testei também não dá problema. Só o Edit, e provavelmente os outros da família. Mas, ele responde ao evento click. Só não fica com o foco. Porque também, não fui a fundo pra descobrir. Mas uma forma de resolver de imediato é você ir no evento click to Edit, lá no form2 e colocar um setfocus lá, tipo: Form2.Edit1. SetFocus; Assim vai funcionar. Não sei dizer se isso é algum problema com os componentes Edit, se existe ou não correção pra isso. Mas é uma saída. De repente alguém mais tem outra opinião, ou até mesmo, uma solução diferente. Abraço. _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2soluti ons.com.br/ www.n2solutions. com.br http://www.nfe.n2solutions. com.br/ www.nfe.n2solutions .com.br http://www.studion2 .com.br/ www.studion2. . com.br De: delphi...@yahoogrup os.com.br [mailto:delphi- b...@yahoogrup os.com.br] Em nome de Andresa Ferreira Enviada em: terça-feira, 12 de maio de 2009 17:22 Para: delphi...@yahoogrup os.com.br Assunto: Res: RES: [delphi-br] Foco nos campos da tela Claudiney. Não é uma apilcação MDI, pois MDI não abre dentro de um panel, não é? Meus formulários são fsNormal. Andresa _ _ __ De: Claudiney Cogo claudiney-listas@ n2solutions. com.br mailto:claudiney- listas%40n2solut ions.com. br Para: delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Terça-feira, 12 de Maio de 2009 14:29:44 Assunto: RES: [delphi-br] Foco nos campos da tela Olá Andresa Por acaso o que você está tentando fazer não é uma aplicação MDI? Onde você tem um formulário pai e os formulários filhos abrem em uma área específica dele? Abraço _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2soluti ons.com.br/ www.n2solutions. com.br http://www.nfe. n2solutions..com.br/ www.nfe.n2solutions .com.br http://www.studion2 .com.br/ www.studion2. com.br De: delphi...@yahoogrup os.com.br [mailto:delphi- b...@yahoogrup os.com.br] Em nome de Andresa Ferreira Enviada em: terça-feira, 12 de maio de 2009 14:08 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] Foco nos campos da tela Estou fazendo uma aplicação onde tem o formulário principal, nele existe um panel onde preciso abrir os demais forms dentro, utilizo os seguintes comandos: form2.Show; Form2.Parent := Form1.Panel1; Ocorre o seguinte problema, quando abro o form2 não consigo focar os edits com o mouse, apenas com o tab, mas necessito que seja também com o mouse, detectei que mudando o borderstyle do form2 para bsNone, resolve o problema, mas a aplicação não pode ficar sem
Res: RES: RES: [delphi-br] Foco nos campos da tela
Claudiney Deu super certo esse comando. Porém não dá p/ colocar isso em cada campo do sistema, pois ele é muito grande. Eu tentei colocar isso no ancestral, mas acabo fazendo isso em todos os campos de uma vez, srsrsrs. Tem alguma ideia de como posso colocar isso no ancestral? Andresa De: Claudiney Cogo claudiney-lis...@n2solutions.com.br Para: delphi...@yahoogrupos.com..br Enviadas: Quarta-feira, 13 de Maio de 2009 9:40:44 Assunto: RES: RES: [delphi-br] Foco nos campos da tela Andresa. Fiz um exemplo como você falou. Realmente acontece isso. Tendo borda, você clica e o Edit não recebe o foco. E só com o Edit acontece isso. Com radio Button e check Box, por exemplo, que testei também não dá problema. Só o Edit, e provavelmente os outros da família. Mas, ele responde ao evento click. Só não fica com o foco. Porque também, não fui a fundo pra descobrir. Mas uma forma de resolver de imediato é você ir no evento click to Edit, lá no form2 e colocar um setfocus lá, tipo: Form2.Edit1. SetFocus; Assim vai funcionar. Não sei dizer se isso é algum problema com os componentes Edit, se existe ou não correção pra isso. Mas é uma saída. De repente alguém mais tem outra opinião, ou até mesmo, uma solução diferente. Abraço. _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2soluti ons.com.br/ www.n2solutions. com.br http://www.nfe. n2solutions. com.br/ www.nfe.n2solutions .com.br http://www.studion2 .com.br/ www.studion2.. com.br De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Andresa Ferreira Enviada em: terça-feira, 12 de maio de 2009 17:22 Para: delphi...@yahoogrup os.com.br Assunto: Res: RES: [delphi-br] Foco nos campos da tela Claudiney. Não é uma apilcação MDI, pois MDI não abre dentro de um panel, não é? Meus formulários são fsNormal. Andresa _ _ __ De: Claudiney Cogo claudiney-listas@ n2solutions. com.br mailto:claudiney- listas%40n2solut ions.com. br Para: delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Terça-feira, 12 de Maio de 2009 14:29:44 Assunto: RES: [delphi-br] Foco nos campos da tela Olá Andresa Por acaso o que você está tentando fazer não é uma aplicação MDI? Onde você tem um formulário pai e os formulários filhos abrem em uma área específica dele? Abraço _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2soluti ons.com.br/ www.n2solutions. com.br http://www.nfe.n2solutions. com.br/ www.nfe.n2solutions .com.br http://www.studion2 .com.br/ www.studion2. com.br De: delphi...@yahoogrup os.com.br [mailto:delphi- b...@yahoogrup os.com.br] Em nome de Andresa Ferreira Enviada em: terça-feira, 12 de maio de 2009 14:08 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] Foco nos campos da tela Estou fazendo uma aplicação onde tem o formulário principal, nele existe um panel onde preciso abrir os demais forms dentro, utilizo os seguintes comandos: form2.Show; Form2.Parent := Form1.Panel1; Ocorre o seguinte problema, quando abro o form2 não consigo focar os edits com o mouse, apenas com o tab, mas necessito que seja também com o mouse, detectei que mudando o borderstyle do form2 para bsNone, resolve o problema, mas a aplicação não pode ficar sem bordas nos formulários, e sem os botões de maximinizar, minimizar e fechar, alguém poderia me ajudar? Já agradeço.. Andresa _ _ __ De: Adolfo Stotz abnst...@fastlane. com.br mailto:abnstotz% 40fastlane. com.br Para: delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Terça-feira, 12 de Maio de 2009 12:55:18 Assunto: Re: [delphi-br] DBXCommon.pas Não existe a pasta databese dentro da pasta source. Pode ser algum problema de instalação? grato - Original Message - From: Paulo Coutinho To: delphi...@yahoogrup os.com..br Sent: Tuesday, May 12, 2009 12:30 AM Subject: Re: [delphi-br] DBXCommon.pas Olá, Essa unit fica em: C:\Arquivos de programas\CodeGear\ RAD Studio\6..0\source\ database Por padrão o Delphi já deveria reconhecer. 2009/5/12 Adolfo Stotz abnst...@fastlane. com.br Estou aprendendo DataSnap/Rad Studio. A minha aplicação Server conecta com o SQLServer 2008. A aplicação cliente, tambem conecta normalmente (Connected = True), mas ao executar a aplicação, aparece o seguinte erro - Remote Error: DBXError: Error Code: 3604 e ao fazer o debug, aparece o erro - Souce File not found: DBXCommon.pas. Que programa é este ? Onde ele deveria estar ? Onde encontra-lo ? Grato [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes. com/blog Site: www.prsolucoes. com Msn: pa...@prsolucoes. com [As partes desta mensagem que não
[delphi-br] Foco nos campos da tela
Estou fazendo uma aplicação onde tem o formulário principal, nele existe um panel onde preciso abrir os demais forms dentro, utilizo os seguintes comandos: form2.Show; Form2.Parent := Form1.Panel1; Ocorre o seguinte problema, quando abro o form2 não consigo focar os edits com o mouse, apenas com o tab, mas necessito que seja também com o mouse, detectei que mudando o borderstyle do form2 para bsNone, resolve o problema, mas a aplicação não pode ficar sem bordas nos formulários, e sem os botões de maximinizar, minimizar e fechar, alguém poderia me ajudar? Já agradeço. Andresa De: Adolfo Stotz abnst...@fastlane.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 12 de Maio de 2009 12:55:18 Assunto: Re: [delphi-br] DBXCommon.pas Não existe a pasta databese dentro da pasta source. Pode ser algum problema de instalação? grato - Original Message - From: Paulo Coutinho To: delphi...@yahoogrup os.com.br Sent: Tuesday, May 12, 2009 12:30 AM Subject: Re: [delphi-br] DBXCommon.pas Olá, Essa unit fica em: C:\Arquivos de programas\CodeGear\ RAD Studio\6.0\source\ database Por padrão o Delphi já deveria reconhecer. 2009/5/12 Adolfo Stotz abnst...@fastlane. com.br Estou aprendendo DataSnap/Rad Studio. A minha aplicação Server conecta com o SQLServer 2008. A aplicação cliente, tambem conecta normalmente (Connected = True), mas ao executar a aplicação, aparece o seguinte erro - Remote Error: DBXError: Error Code: 3604 e ao fazer o debug, aparece o erro - Souce File not found: DBXCommon.pas. Que programa é este ? Onde ele deveria estar ? Onde encontra-lo ? Grato [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes. com/blog Site: www.prsolucoes. com Msn: pa...@prsolucoes. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Foco nos campos da tela
Claudiney. Não é uma apilcação MDI, pois MDI não abre dentro de um panel, não é? Meus formulários são fsNormal. Andresa De: Claudiney Cogo claudiney-lis...@n2solutions.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 12 de Maio de 2009 14:29:44 Assunto: RES: [delphi-br] Foco nos campos da tela Olá Andresa Por acaso o que você está tentando fazer não é uma aplicação MDI? Onde você tem um formulário pai e os formulários filhos abrem em uma área específica dele? Abraço _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2soluti ons.com.br/ www.n2solutions. com.br http://www.nfe. n2solutions. com.br/ www.nfe.n2solutions .com.br http://www.studion2 .com.br/ www.studion2. com.br De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Andresa Ferreira Enviada em: terça-feira, 12 de maio de 2009 14:08 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] Foco nos campos da tela Estou fazendo uma aplicação onde tem o formulário principal, nele existe um panel onde preciso abrir os demais forms dentro, utilizo os seguintes comandos: form2.Show; Form2.Parent := Form1.Panel1; Ocorre o seguinte problema, quando abro o form2 não consigo focar os edits com o mouse, apenas com o tab, mas necessito que seja também com o mouse, detectei que mudando o borderstyle do form2 para bsNone, resolve o problema, mas a aplicação não pode ficar sem bordas nos formulários, e sem os botões de maximinizar, minimizar e fechar, alguém poderia me ajudar? Já agradeço.. Andresa _ _ __ De: Adolfo Stotz abnst...@fastlane. com.br mailto:abnstotz% 40fastlane. com.br Para: delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Terça-feira, 12 de Maio de 2009 12:55:18 Assunto: Re: [delphi-br] DBXCommon.pas Não existe a pasta databese dentro da pasta source. Pode ser algum problema de instalação? grato - Original Message - From: Paulo Coutinho To: delphi...@yahoogrup os.com..br Sent: Tuesday, May 12, 2009 12:30 AM Subject: Re: [delphi-br] DBXCommon.pas Olá, Essa unit fica em: C:\Arquivos de programas\CodeGear\ RAD Studio\6.0\source\ database Por padrão o Delphi já deveria reconhecer. 2009/5/12 Adolfo Stotz abnst...@fastlane. com.br Estou aprendendo DataSnap/Rad Studio. A minha aplicação Server conecta com o SQLServer 2008. A aplicação cliente, tambem conecta normalmente (Connected = True), mas ao executar a aplicação, aparece o seguinte erro - Remote Error: DBXError: Error Code: 3604 e ao fazer o debug, aparece o erro - Souce File not found: DBXCommon.pas. Que programa é este ? Onde ele deveria estar ? Onde encontra-lo ? Grato [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes. com/blog Site: www.prsolucoes. com Msn: pa...@prsolucoes. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 4066 (20090512) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. com.br [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Abri frm em um panel
Felipe os frms estão fsNormal. Não adianta, nada que eu faço ele para de dar o erro. Cannot create form. No MDI Forms are currently active. Andresa De: Fellipe Henrique felli...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 25 de Março de 2009 17:00:21 Assunto: Re: [delphi-br] Abri frm em um panel Se queres colocar um form dentro de um TPanel, porque tens Forms MDIForm e MDIChild? de qualquer maneira tente: frmCTRL_Empresa := TfrmCTRL_Empresa. Create(applicati on); if frmCTRL_Empresa. FormStyle fsNormal then begin frmCTRL_Empresa. FormStyle := fsNormal; frmCTRL_Empresa. Visible := False; end; frmCTRL_Empresa. Parent := frmMenuModulos. Panel1; frmCTRL_Empresa. Show; Não testei, mas acho que funciona []s 2009/3/25 Andresa Ferreira andresa_delphi@ yahoo.com. br Oi Daniel Desculpe a demora, estava enrolada atendendo clientes. Eu já tentei de tudo. Mas hj está assim Try frmCTRL_Empresa. Parent := frmMenuModulos. Panel1; frmCTRL_Empresa. Show; except frmCTRL_Empresa := TfrmCTRL_Empresa. Create(applicati on); frmCTRL_Empresa. Parent := frmMenuModulos. Panel1; frmCTRL_Empresa. Show; end; Tanto a tela principal como a tela chamada são fsNormal. Grata, Andresa _ _ __ De: Daniel Augusto Bastos danbas...@gmail. com danbastos%40gmail. com Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br Enviadas: Quinta-feira, 19 de Março de 2009 18:57:05 Assunto: Re: [delphi-br] Abri frm em um panel Opa .. me corrigindo . Só reparei que era um formulário MDI depois que enviei a mensagem .. com formulários MDI, essa dica não funciona. Teria que mudar realmente seu formulário para normal .. Poste como está a criação deste formulário para poder-mos ver o que está acontecendo sobre a msg de erro. 2009/3/19 Daniel Augusto Bastos danbas...@gmail. . com Mude o parent do formulário para o painel que vc quer abrir .. Tipo: With Tform.Create( self) do begin Parent := Panel1; . end; 2009/3/19 Andresa Ferreira andresa_delphi@ yahoo.com. br Se eu colocar como fsNormal dá o erro: Cannot create form. No MDI Forms are currently active. Andresa _ _ __ De: Jackson Gomes - ToolsComps jack...@toolsandco m ps.com Para: delphi...@yahoogrup os.com.br Enviadas: Quinta-feira, 19 de Março de 2009 11:05:46 Assunto: Re: [delphi-br] Abri frm em um panel O frm abre normalmente mas não dentro do panel... atrás dele... Abre atrás pq é MDI... Se quiser que abra dentro, mude para Normal Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsand comps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps e-mail: jack...@toolsandcom ps.com Fone: 27 3389 1138 - 8811 0324 - - - - - - http://jacklovesdel phi.blogspot. com - Delphi, Intraweb, etc - - - - - - Devhost - Webhost para desenvolvedores Delphi http://www.devhost. com.br devh...@devhost. com.br Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Abs Daniel Augusto Bastos -- Abs Daniel Augusto Bastos [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- _ _ ___ T.·.F.·.A.·. Fellipe Henrique Blog: www.digitumsoft. com.br/blogs/ fellipeh - - - - - - CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. # # # [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Abri frm em um panel
Todas estão como fsNormal. Nao sei mais o que fazer. Andresa De: Alisson Yahoo alss...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 25 de Março de 2009 22:17:57 Assunto: Re: [delphi-br] Abri frm em um panel Provavelmente a propriedade FSStyle está fsMDIForm ou fsMDIChild. Mude para fsNormal. [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Abri frm em um panel
Oi Daniel Desculpe a demora, estava enrolada atendendo clientes. Eu já tentei de tudo. Mas hj está assim Try frmCTRL_Empresa.Parent := frmMenuModulos.Panel1; frmCTRL_Empresa.Show; except frmCTRL_Empresa := TfrmCTRL_Empresa.Create(application); frmCTRL_Empresa.Parent := frmMenuModulos.Panel1; frmCTRL_Empresa.Show; end; Tanto a tela principal como a tela chamada são fsNormal. Grata, Andresa De: Daniel Augusto Bastos danbas...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 19 de Março de 2009 18:57:05 Assunto: Re: [delphi-br] Abri frm em um panel Opa .. me corrigindo . Só reparei que era um formulário MDI depois que enviei a mensagem .. com formulários MDI, essa dica não funciona. Teria que mudar realmente seu formulário para normal .. Poste como está a criação deste formulário para poder-mos ver o que está acontecendo sobre a msg de erro. 2009/3/19 Daniel Augusto Bastos danbas...@gmail.. com Mude o parent do formulário para o painel que vc quer abrir .. Tipo: With Tform.Create( self) do begin Parent := Panel1; . end; 2009/3/19 Andresa Ferreira andresa_delphi@ yahoo.com. br Se eu colocar como fsNormal dá o erro: Cannot create form. No MDI Forms are currently active. Andresa _ _ __ De: Jackson Gomes - ToolsComps jack...@toolsandcom ps.com Para: delphi...@yahoogrup os.com.br Enviadas: Quinta-feira, 19 de Março de 2009 11:05:46 Assunto: Re: [delphi-br] Abri frm em um panel O frm abre normalmente mas não dentro do panel... atrás dele... Abre atrás pq é MDI... Se quiser que abra dentro, mude para Normal Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsand comps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps e-mail: jack...@toolsandcom ps.com Fone: 27 3389 1138 - 8811 0324 - - - - - - http://jacklovesdel phi.blogspot. com - Delphi, Intraweb, etc - - - - - - Devhost - Webhost para desenvolvedores Delphi http://www.devhost. com.br devh...@devhost. com.br Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Abs Daniel Augusto Bastos -- Abs Daniel Augusto Bastos [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Abri frm em um panel
Oi Alisson... Deu o mesmo erro. Cannot create form. No MDI forms are currently active. Andresa De: Alisson alss...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 19 de Março de 2009 17:39:52 Assunto: Re: [delphi-br] Abri frm em um panel Tente assim: Form.Parent := Panel; Form.ManualDock( Panel); Form.Align := alClient; _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Abri frm em um panel
Galera, me ajudem... não sei mais o que fazer... srsrs A situação é assim: Tenho um frm chamado frmMenuModulos ele é um fsMDIForm, nele eu tenho um menu treeview, e no resto da tela um panel, onde eu gostaria de chamar minhas telas MDIChildren. Porém não consigo de maneira alguma abrir dentro do panel. No meu frmMenuModulos eu chamo uma procedure que está em uma biblioteca, e nesse biblioteca que eu faço a chamada do menu. Nessa biblioteca o código está assim: if sNM_Form = 'frmCTRL_Empresa' then begin frmCTRL_Empresa := TfrmCTRL_Empresa.Create(frmMenuModulos.panel1); frmCTRL_Empresa.Parent := frmMenuModulos.panel1; frmCTRL_Empresa.Show; end O frm abre normalmente mas não dentro do panel... atrás dele... O que está errado??? Andresa De: humberto sales de oliveira humberto_...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 19 de Março de 2009 8:54:22 Assunto: Re: RES: [delphi-br] Rave - inserir um bitmap do disco no relatorio Obrigado Vinicius... + nao e bem o q eu qria... + consegui resolver... jogando o path da imagem junto com a instrução SQL dpois coloquei na imagem para buscar esse campo. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Abri frm em um panel
Se eu colocar como fsNormal dá o erro: Cannot create form. No MDI Forms are currently active. Andresa De: Jackson Gomes - ToolsComps jack...@toolsandcomps.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 19 de Março de 2009 11:05:46 Assunto: Re: [delphi-br] Abri frm em um panel O frm abre normalmente mas não dentro do panel... atrás dele... Abre atrás pq é MDI... Se quiser que abra dentro, mude para Normal Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsand comps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps e-mail: jack...@toolsandcom ps.com Fone: 27 3389 1138 - 8811 0324 - - - - - - http://jacklovesdel phi.blogspot. com - Delphi, Intraweb, etc - - - - - - Devhost - Webhost para desenvolvedores Delphi http://www.devhost. com.br devh...@devhost. com.br Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Forms Stay on top
Oi Emanuel, bom dia. Verdade né vc não consegue abrir sem os ancestrais... e tem tbm os componentes que usamos que é comprado. Então... vc diz que se eu colocar um componente treeview na minha tela principal, as telas chamadas no menu não apareceria em cima dele Mas o duro que é isso que acontece... srsrsrs Vou te mandar um print de como a tela fica ao ser aberta... Obrigada Bj Andresa De: Coutinho - Yahoo emanuelcouti...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 12 de Março de 2009 9:20:11 Assunto: Re: Res: [delphi-br] Forms Stay on top Andresa Recebi as telas e vou olhar... No mais, o fsStayOnTop é para que sua tela realmente fique sobre todas as outras... O que não entendi é como suas telas children ficam sob o seu TreeView menu... pois se vc colocar qualquer coisa no seu form principal, a área de apresentação dos forms é automaticamente reduzida! Sds _ _ Emanuel Coutinho Salvador-Ba- Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Forms Stay on top
Bom dia Emanuel. Vou tentar te explicar melhor. Tenho um frm principal que está com a propriedade FormStyle = fsMDIForm. Nessa tela eu tenho o componente TreeView. As minhas telas de cadastro coloquei como fsStayOnTop, pois se eu deixasse como fsMDIChild, quando eu chamava essa tela, parte dela abria embaixo do menu. Com StayOnTop sempre abre por cima. Porém qdoeu executo um processo demorado, essas telas ficam travadas, e eu não consigo fazer outra coisa, mesmo dando Alt+Tab, sempre a tela fica na frente. Vou mandar no seu e-mail a tela principal e uma tela de cadastro. Andresa De: Emanuel Coutinho emanuelcouti...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 11 de Março de 2009 11:44:29 Assunto: Res: [delphi-br] Forms Stay on top Andresa Não entendi bem... Se vc está usando uma tela principal como MDI e as outras como Children, o que vc colocar no form principal deverá naturalmente restringir a área para a abertura das telas children.. Assim, não entendo como vc está conseguindo colocar uma ChildForm sob os componentes visuais que estão colocados no form principal. Dá para vc me mandar umas telas do que vc está fa\endo para poder avaliar amelhor? Sds Emanuel Coutinho Salvador-Ba- Brasil _ _ __ De: Andresa Ferreira andresa_delphi@ yahoo.com. br Para: delphi...@yahoogrup os.com.br Enviadas: Quarta-feira, 11 de Março de 2009 11:36:16 Assunto: [delphi-br] Forms Stay on top Olá a todos No meu sistema, resolvi usar um menu TreeView, porém qdo eu abria uma tela que estava com a propriedade MDIChild, esta tela abrir embaixo do menu. Mudando a propriedade p/ Stay on Top, ficou direitinho, como eu queria Porém tem um problema, qdo eu tenho processos demorados, essa tela sempre fica na frente de qq coisa, mesmo se eu minimizar o sistema, e queira ver qq coisa, como o browser por exemplo, a tela não sai da frente. Alguém poderia me ajudar??? Andresa _ _ __ De: Luciano Calenzani Simões simoesluciano@ yahoo.com. br Para: delphi...@yahoogrup os.com.br Enviadas: Quarta-feira, 11 de Março de 2009 8:53:37 Assunto: Res: [delphi-br] Erro IDE D2009 Aí está 72122. Obrigado. Luciano Calenzani Simões _ _ __ De: Andreano Lanusse andreano.lanusse@ embarcadero. com Para: delphi...@yahoogru p os.com..br delphi...@yahoogru p os.com.br Enviadas: Terça-feira, 10 de Março de 2009 17:00:51 Assunto: RE: [delphi-br] Erro IDE D2009 Luciano, Por favor adicione no QC e me informe o número. Obrigado, Andreano Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Mensagens neste tópico (8) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias * 15 Novos usuários * 1 Novos arquivosVisite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra Instale grátis Buscar sites na web Checar seus e-mails . Yahoo! Grupos Crie seu próprio grupo A melhor forma de comunicação . __,_.._,___ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Forms Stay on top
Olá a todos No meu sistema, resolvi usar um menu TreeView, porém qdo eu abria uma tela que estava com a propriedade MDIChild, esta tela abrir embaixo do menu. Mudando a propriedade p/ Stay on Top, ficou direitinho, como eu queria Porém tem um problema, qdo eu tenho processos demorados, essa tela sempre fica na frente de qq coisa, mesmo se eu minimizar o sistema, e queira ver qq coisa, como o browser por exemplo, a tela não sai da frente. Alguém poderia me ajudar??? Andresa De: Luciano Calenzani Simões simoesluci...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 11 de Março de 2009 8:53:37 Assunto: Res: [delphi-br] Erro IDE D2009 Aí está 72122. Obrigado. Luciano Calenzani Simões _ _ __ De: Andreano Lanusse andreano.lanusse@ embarcadero. com Para: delphi...@yahoogrup os.com..br delphi...@yahoogrup os.com.br Enviadas: Terça-feira, 10 de Março de 2009 17:00:51 Assunto: RE: [delphi-br] Erro IDE D2009 Luciano, Por favor adicione no QC e me informe o número. Obrigado, Andreano Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Mensagens neste tópico (8) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias * 15 Novos usuários * 1 Novos arquivosVisite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra Instale grátis Buscar sites na web Checar seus e-mails . Yahoo! Grupos Crie seu próprio grupo A melhor forma de comunicação . __,_.._,___ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: Res: Res: [delphi-br] Ajuda com treeview
Oi Coutinho. Eu repondi seu e-mail Acho que não deve ter ido. Assim, o exemplo foi ótimo, e me fez entender bastante coisa. O problema, que acontece, é que qdo vc clica no mais (+) ele não muda o foco, só muda o foco se vc clicar na descrição, sendo assim ele traz as informações do último que foi aberto (aquele que ficou com o foco). Tem algum jeito de qduando eu clicar no (+) ele já mudar o foco p/ essa linha??? Andresa De: Coutinho - Yahoo emanuelcouti...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 21 de Janeiro de 2009 11:28:38 Assunto: Re: Res: Res: [delphi-br] Ajuda com treeview Aí Andressa. Recebeu o exemplo do Treeview, ajudou para o que vc queria? Sds Emanuel Coutinho Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com treeview
Oi Lucas
Então meu código está assim:
For i := 0 to tvMenu.Items.Count - 1 do
begin
if tvMenu.Items[i].Selected then
begin
if not tvMenu.Items[i].HasChildren then
begin
{$IFDEF IF_MILLENIUM}
Exec_Form_IF(pMenu(tvMenu.Items[i].Data)^.sNm_Form);
{$ENDIF}
{$IFDEF CTRL}
Exec_Form_CTRL(pMenu(tvMenu.Items[i].Data)^.sNm_Form);
{$ENDIF}
end;
Break;
end;
end;
Me parece que essa parte tvMenu.Items[i].Selected não faz certo Olha o
exemplo:
Configurações
- Empresa
Parametros
Qdo eu clico em Cofigurações ele não abre nada, aí eu clico em Empresas ele
abre a tela correta. Aí eu clico em Parametros e ele abre a tela de Empresas de
novo. Qdo ele passa no for, ele acha que o i que está selecionado é o da
empresa...
Preciso de ajuda
Andresa
De: Lucas Neves lucas_del...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 17:36:04
Assunto: Re: [delphi-br] Ajuda com treeview
Se isso for regra para todos os nos que tem subdivisoes, use a
propriedade HasChildren.
if not Node.HasChildren then
// coloque aqui a funcao que chama o form...
Espero que ajude
Lucas
Andresa Ferreira escreveu:
Olá pessoal
Tô precisando de um help.
Tenho um treeview com ponteiro, porém quando eu clico no mais (+) da
árvore, ele abre o último frm que foi aberto.
Como faria para qdo clicar no mais (+) não abrir nenhum frm???
Andresa
_ _ __
De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com
mailto:djpardalroc ha%40hotmail. com
Para: delphi-br delphi...@yahoogrup os.com.br
mailto:delphi- br%40yahoogrupos .com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 16:44:12
Assunto: RE: [delphi-br] Perdi o Meu CD do Delphi 7
É expressamente proibida qualquer menção à pirataria na lista! Está
fazendo uma solicitação ilegal na lista, pedindo pra ser banido daqui!
Sds.
To: delphi...@yahoogrup os.com.br
From: rafaelpinto@ cdsol.com. br
Date: Mon, 19 Jan 2009 18:27:38 +
Subject: [delphi-br] Perdi o Meu CD do Delphi 7
Po Galera, perdi meu CD do Delphi 7 + Keygen e não estou
conseguindo encontrar pelas bancas. Alguém sabe um site onde eu possa
fazer o Downloade dele Rapidinho??? ?
Estou precisando muito!!!
_ _ _ _ _ _
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
http://video. msn.com/? mkt=pt-br
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos..yahoo. com http://br.maisbusca dos..yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Ajuda com treeview
Então Coutinho, não consegui achar essas propriedades no componente treeview. O
Delphi não aceita essa linha de codigo.
Vc pode me explicar melhor?
Andresa
De: Coutinho - Yahoo emanuelcouti...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 20 de Janeiro de 2009 11:57:51
Assunto: Re: Res: [delphi-br] Ajuda com treeview
Use tmMenu.Items. Selected. Absoluteindex. ..
Ok?
Andresa Ferreira escreveu:
Oi Lucas
Então meu código está assim:
For i := 0 to tvMenu.Items. Count - 1 do
begin
if tvMenu..Items[ i].Selected then
begin
if not tvMenu.Items[ i].HasChildren then
begin
{$IFDEF IF_MILLENIUM}
Exec_Form_IF( pMenu(tvMenu. Items[i]. Data)^.sNm_ Form);
{$ENDIF}
{$IFDEF CTRL}
Exec_Form_CTRL( pMenu(tvMenu. Items[i]. Data)^.sNm_ Form);
{$ENDIF}
end;
Break;
end;
end;
Me parece que essa parte tvMenu.Items[ i].Selected não faz certo
Olha o exemplo:
Configurações
- Empresa
Parametros
Qdo eu clico em Cofigurações ele não abre nada, aí eu clico em
Empresas ele abre a tela correta. Aí eu clico em Parametros e ele abre
a tela de Empresas de novo. Qdo ele passa no for, ele acha que o i que
está selecionado é o da empresa...
Preciso de ajuda
Andresa
_ _ __
De: Lucas Neves lucas_delphi@ yahoo.com. br
mailto:lucas_ delphi%40yahoo. com.br
Para: delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 17:36:04
Assunto: Re: [delphi-br] Ajuda com treeview
Se isso for regra para todos os nos que tem subdivisoes, use a
propriedade HasChildren.
if not Node.HasChildren then
// coloque aqui a funcao que chama o form...
Espero que ajude
Lucas
Andresa Ferreira escreveu:
Olá pessoal
Tô precisando de um help.
Tenho um treeview com ponteiro, porém quando eu clico no mais (+) da
árvore, ele abre o último frm que foi aberto.
Como faria para qdo clicar no mais (+) não abrir nenhum frm???
Andresa
_ _ __
De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com
mailto:djpardalroc ha%40hotmail. com
Para: delphi-br delphi...@yahoogru p os..com.br
mailto:delphi- br%40yahoogrupos .com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 16:44:12
Assunto: RE: [delphi-br] Perdi o Meu CD do Delphi 7
É expressamente proibida qualquer menção à pirataria na lista! Está
fazendo uma solicitação ilegal na lista, pedindo pra ser banido daqui!
Sds.
To: delphi...@yahoogrup os.com.br
From: rafaelpinto@ cdsol.com. br
Date: Mon, 19 Jan 2009 18:27:38 +
Subject: [delphi-br] Perdi o Meu CD do Delphi 7
Po Galera, perdi meu CD do Delphi 7 + Keygen e não estou
conseguindo encontrar pelas bancas. Alguém sabe um site onde eu possa
fazer o Downloade dele Rapidinho??? ?
Estou precisando muito!!!
_ _ _ _ _ _
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
http://video. msn.com/? mkt=pt-br
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos..yahoo. com http://br.maisbusca dos..yahoo.
com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com http://br.maisbusca dos.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda com treeview
Olá pessoal Tô precisando de um help. Tenho um treeview com ponteiro, porém quando eu clico no mais (+) da árvore, ele abre o último frm que foi aberto. Como faria para qdo clicar no mais (+) não abrir nenhum frm??? Andresa De: Rubem Nascimento da Rocha djpardalro...@hotmail.com Para: delphi-br delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Janeiro de 2009 16:44:12 Assunto: RE: [delphi-br] Perdi o Meu CD do Delphi 7 É expressamente proibida qualquer menção à pirataria na lista! Está fazendo uma solicitação ilegal na lista, pedindo pra ser banido daqui! Sds. To: delphi...@yahoogrup os.com.br From: rafaelpinto@ cdsol.com. br Date: Mon, 19 Jan 2009 18:27:38 + Subject: [delphi-br] Perdi o Meu CD do Delphi 7 Po Galera, perdi meu CD do Delphi 7 + Keygen e não estou conseguindo encontrar pelas bancas. Alguém sabe um site onde eu possa fazer o Downloade dele Rapidinho??? ? Estou precisando muito!!! _ _ _ _ _ _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video. msn.com/? mkt=pt-br Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados..yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ponteiro - Ajuda
Oi João... Muito, muito obrigada. A propriedade FechtAll da query estava false, por isso ele dava erro. Valeu. Andresa De: Joao Morais [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 29 de Outubro de 2008 13:49:27 Assunto: Re: [delphi-br] Ponteiro - Ajuda 2008/10/29 Andresa Ferreira andresa_delphi@ yahoo.com. br: Oi João. Então, eu uso delphi7 e não achei a opçao Debug Units, porém achei Debug DCUs. Qdo dei CTRL+F3 apareceu a mensagem anexa. A lista não aceita anexos. Passa um link com a imagem ou transcreve o local aonde o código parou. Estive analisando um pouco mais detalhadamente seu código, você utiliza SetLength com base em um RecordCount. Quem te garante que o recordcount retornou a quantidade correta de registros? Se você tentar acessar um elemento além do tamanho do array, você terá um AV também. Execute a rotina passo a passo (coloque um breakpoint no setlength) e veja se ao menos a sua rotina chega até o fim, do contrário, diga qual foi a linha em que ela parou. Sabe João, eu nunca tinha usado ponteiros antes, e não tô gostando srsrssrrs... . Teria um meio de eu fazer esse processo sem usar ponteiros??? ? Eu acho que não. Você poderia usar objetos, mas teria que se preocupar em alocar e desalocar da mesma forma. Joao Morais Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ponteiro - Ajuda
Oi João Então, eu uso delphi7 e não achei a opçao Debug Units, porém achei Debug DCUs. Qdo dei CTRL+F3 apareceu a mensagem anexa. Sabe João, eu nunca tinha usado ponteiros antes, e não tô gostando srsrssrrs Teria um meio de eu fazer esse processo sem usar ponteiros Preciso muito finalizar esse menu. Grata, Andresa De: Joao Morais [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 28 de Outubro de 2008 18:34:02 Assunto: Re: [delphi-br] Ponteiro - Ajuda 2008/10/28 Andresa Ferreira andresa_delphi@ yahoo.com. br: Oi João. Mas o que eu devo fazer Coloquei o Dispose no final do processo, mas ocorre o mesmo problema. Não sei mais o que fazer... Me ajuda ;) Ligue as informações de debug do seu projeto. Vá também em Project | Options | Compiler | ligue Use Debug Units. Dê um build all. Logo que o erro ocorrer, vá até a IDE e pressione Ctrl+F3. Se você tiver sorte, irá parar no ponto exato em que ocorreu a exceção. Isso pode te dar uma pista. Usar FastMM com FullDebugMode habilitado aumentam suas chances. Com esta informação você terá uma pista do que é, e por consequência do que você terá que fazer. Joao Morais Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ponteiro - Ajuda
Bom dia a todos.
Estou fazendo um menu treeview para meu sistema. Fiz o código mostrado abaixo.
Ele executou perfeitamente algumas vezes depois começou dar access violation,
passei para outra máquina, funcionou umas duas vezes e depois o mesmo erro.
Acredito que seja algum problema de memória, mas não consigo corrigir. Alguém
poderia me ajudar?
Desde já agradeço.
Código:
TMenu = Record
iId_Nivel: Integer;
sDs_Opcao: String;
iId_Nivel_Ch: Integer;
// sNm_Form: String;
end;
pMenu = ^TMenu;
procedure TfrmMenuModulos.FormCreate(Sender: TObject);
var
Menu: pMenu;
sTexto: String;
tnInd: TTreeNode;
aNode: Array of TTreeNode;
i: Integer;
begin
inherited;
VerificaQuery;
if LoginUsuario then
Inicializa_Menu;
All_QryAux.Close;
All_QryAux.SQL.Clear;
All_QryAux.SQL.Add(' SELECT ID_NIVEL,');
All_QryAux.SQL.Add(' DS_OPCAO,');
All_QryAux..SQL.Add(' ID_NIVEL_CHAMAR,');
All_QryAux.SQL.Add(' NM_FORM');
All_QryAux.SQL.Add(' FROM CTRL_MENU');
All_QryAux.SQL.Add(' WHERE ID_PROJETO = ' + IntToStr(dmDataBase.id_Projeto));
All_QryAux.SQL.Add(' AND ID_MODULO = ' + IntToStr(dmDataBase.id_Modulo));
All_QryAux.SQL.Add(' ORDER BY ID_NIVEL, ID_ITEM');
All_QryAux.Open;
i := 0;
tvMenu.Items.Clear;
SetLength(aNode, All_QryAux.RecordCount);
All_QryAux.First;
While not All_QryAux.Eof do
begin
New(Menu);
Menu^.iId_Nivel := All_QryAux.FieldByName('ID_NIVEL').AsInteger;
Menu^.sDs_Opcao := All_QryAux.FieldByName('DS_OPCAO').AsString;
Menu^.iId_Nivel_Ch := All_QryAux.FieldByName('ID_NIVEL_CHAMAR').AsInteger;
// Menu^.sNm_Form := All_QryAux.FieldByName('NM_FORM').AsString;
sTexto := Trim(All_QryAux.FieldByName('DS_OPCAO').AsString);
If All_QryAux.FieldByName('ID_NIVEL').AsInteger = 1 then
aNode[i]:= tvMenu.Items.AddObject(Nil, sTexto, Menu)
else
begin
tnInd := IndiceHie(Menu);
aNode[i] := tvMenu.Items.AddChildObject(tnInd, sTexto, Menu);
end;
Inc(i);
All_QryAux.Next;
Dispose(Menu);
end;
For i := Low(aNode) to High(aNode) do
If aNode[i] Nil then
aNode[i].Expanded:= True;
tvMenu.FullCollapse;
end;
function TfrmMenuModulos.IndiceHie(p_Hie: pMenu): TTreeNode;
Var
i: Integer;
begin
Result:= Nil;
For i := 0 to tvMenu.Items.Count do
begin
If (pMenu(tvMenu.Items[i].Data)^.iId_Nivel_Ch = p_Hie^.iId_Nivel) then
begin
Result:= tvMenu..Items[i];
Break;
end;
end;
end;
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ponteiro - Ajuda
Oi João.
Mas o que eu devo fazer
Coloquei o Dispose no final do processo, mas ocorre o mesmo problema.
Não sei mais o que fazer...
Me ajuda ;)
Andresa
De: Joao Morais [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 28 de Outubro de 2008 14:08:35
Assunto: Re: [delphi-br] Ponteiro - Ajuda
2008/10/28 Andresa Ferreira andresa_delphi@ yahoo.com. br:
Bom dia a todos.
Boa tarde,
... depois começou dar access violation,
Código:
TMenu = Record
iId_Nivel: Integer;
sDs_Opcao: String;
iId_Nivel_Ch: Integer;
// sNm_Form: String;
end;
pMenu = ^TMenu;
Saudade de ponteiros.
...
While not All_QryAux.Eof do
begin
New(Menu);
Menu^.iId_Nivel := All_QryAux.FieldByN ame('ID_NIVEL' ).AsInteger;
Menu^.sDs_Opcao := All_QryAux.FieldByN ame('DS_OPCAO' ).AsString;
Menu^.iId_Nivel_ Ch := All_QryAux.FieldByN ame('ID_NIVEL_ CHAMAR'). AsInteger;
// Menu^.sNm_Form := All_QryAux.FieldByN ame('NM_FORM' ).AsString;
sTexto := Trim(All_QryAux. FieldByName( 'DS_OPCAO' ).AsString) ;
If All_QryAux.FieldByN ame('ID_NIVEL' ).AsInteger = 1 then
aNode[i]:= tvMenu.Items. AddObject( Nil, sTexto, Menu)
else
begin
tnInd := IndiceHie(Menu) ;
aNode[i] := tvMenu.Items.. AddChildObject( tnInd, sTexto, Menu);
end;
Inc(i);
All_QryAux..Next;
Dispose(Menu) ;
Não olhei detalhes do código, mas esse dispose tá estranho. Você está
liberando memória e mantém uma referência para ela atravês do
treeview. O treeview não vai tirar uma cópia dos dados, mas manter um
ponteiro à área que você alocou. Você tem que dar dispose só depois de
não precisar mais dessa área.
A propósito, quando trabalhar com alocação dinâmica, procure manter um
gerenciador de memória ativo e em modo debug. Ele apresenta a você
tanto corrupção quanto vazamentos.
Joao Morais
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] encontrar mes e ano a partir de uma data
Olá
Day(StrToDate('01/01/2008')); - Dia
Month(StrToDate('01/01/2008')); - Mês
Year(StrToDate('01/01/2008')); - Ano
Espero que ajude.
Andresa
De: rzzanatta [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 28 de Outubro de 2008 16:17:03
Assunto: [delphi-br] encontrar mes e ano a partir de uma data
Olá gosta dia que apartir de uma data tivesse uma função que me
retornasse o mes e o ano.
Exemplo...
data - 28/10/2008
e retornasse o mes= 10 e ano = 2008 mas separados
como faço isso?
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
