
Manoel Zancheta
Membros-
Total de itens
114 -
Registro em
-
Última visita
Sobre Manoel Zancheta

- Data de Nascimento 01/10/1968
Contatos
-
MSN
manoelzancheta@hotmail.com
-
Website URL
http://
-
ICQ
0
Perfil
-
Gender
Male
-
Location
Leme/SP
-
Interests
Delphi<br />FireBird<br />
Manoel Zancheta's Achievements
0
Reputação
-
Então, este link não me ajudou. Eu já havia pesquisado MUITO antes de postar aqui. Eu sempre destrui os objetos com FreeAndNil(Objeto) e sempre funcionou. Meu problema está em um objeto que contem uma lista (TObjectList) de outros objetos. Se eu dou o freeandnil no objeto, a lista continua existindo com os objetos dentro dela. Se eu percorro a lista com um for e dou free objeto por objeto da lista, os mesmo continuam lá. Neste for já tentei free, nil, clear, remove, delete e nada. Quando eu crio um novo componente, a lista esta lá com os objetos anteriores.
-
TVenda = class private FlisDetalheVenda : TObjectList end;Olá. Minha classe TVenda, tem um field que é uma lista de objetos (TVendaDetalhe) contendo os itens da venda. Eu não estou conseguindo destruir efetivamente estes detalhes quando vou destruir o objeto TVenda (já tentei dar free, clear, nil, remove, delete, na lista e nada). Se crio um novo objeto TVenda em seguida, a lista tem os objetos anteriores constando nela. Alguém tem alguma idéia? Grato!
-
(Resolvido) DBGrid tranparente
pergunta respondeu ao danielrgoes de Manoel Zancheta em Delphi, Kylix
Estava apenas testando para ver, pois surgiu aqui a possibilidade de deixar uma marca d´agua de fundo, seria uma imagem bem suave. -
(Resolvido) DBGrid tranparente
pergunta respondeu ao danielrgoes de Manoel Zancheta em Delphi, Kylix
ahh, descobri. é que eu tinha colocado o dbgrid sem "ligar" nada nele, então não tinha nenhum field nele. se bem que assim, o grid só fica transparente onde estão os registros, a área sem registro não fica transparente. -
(Resolvido) DBGrid tranparente
pergunta respondeu ao danielrgoes de Manoel Zancheta em Delphi, Kylix
Não funcionou.... Não dispara o evento DBGrid1DrawDataCell. -
(Resolvido) DBGrid tranparente
pergunta respondeu ao danielrgoes de Manoel Zancheta em Delphi, Kylix
olá Jhonas. Existe alguma regra na disposição dos componentes? Eu coloquei tanto a imagem como o grid dentro de um panel, é isso? ps - eu não acredito ser problema do Delphi pois tenho outros formulários em que este evento do DBGrid é disparado normalmente. -
(Resolvido) Classe com Filed TList
pergunta respondeu ao Manoel Zancheta de Manoel Zancheta em Delphi, Kylix
Fiz com TObjectList e funcionou certinho. Grato! -
(Resolvido) DBGrid tranparente
pergunta respondeu ao danielrgoes de Manoel Zancheta em Delphi, Kylix
Eu sei que o post é antigo, mas eu preciso da mesmo coisa a que este post se refere e tenho o mesmo problema de NÃO gerar o evento Draw Cell do Grid. -
Olá. Eu tenho uma classe de produto e nela eu coloquei um field do tipo TList. No formulário. eu consigo adicionar os objetos grupo na lista, porém, na classe na função persistir, eu não consigo "recuperar" os objetos do TList. Classe unit uclasse; interface uses SysUtils, Classes, Dialogs, StdCtrls, DB, ADODB; type TGrupo = class private FChave: String; protected procedure SetChave(const Value: String); public property Chave: String read FChave write SetChave; constructor Create; destructor Destroy; Override; published end; TProduto = class private FNome: String; FGrupo: TList; protected procedure SetGrupo(const Value: TList); procedure SetNome(const Value: String); public property Nome : String read FNome write SetNome; property Grupo : TList read FGrupo write SetGrupo; function persistir (prod: TProduto): Boolean; constructor Create; destructor Destroy; Override; published end; implementation { TProduto } constructor TProduto.Create; begin inherited Create; FGrupo := TList.Create; end; destructor TProduto.Destroy; begin inherited; end; function TProduto.persistir(prod: TProduto): Boolean; begin prod.Grupo[1]. <--------???????? end; procedure TProduto.SetGrupo(const Value: TList); begin FGrupo := Value; end; procedure TProduto.SetNome(const Value: String); begin FNome := Value; end; { TGrupo } constructor TGrupo.Create; begin inherited Create; end; destructor TGrupo.Destroy; begin inherited; end; procedure TGrupo.SetChave(const Value: String); begin FChave := Value; end; end.e no formulário está assim: procedure TForm1.Button1Click(Sender: TObject); var produto : TProduto; gr : TGrupo; x : intger; begin produto := TProduto.Create; produto.Nome := 'teste'; for x:= 1 to 10 do begin gr := TGrupo.Create; gr.Chave := '11111'; produto.Grupo.Add(gr) end; end; Estou fazendo algo errado? É possível ter uma llista assim nos fields do componente?
-
(Resolvido) Componentes herdados
pergunta respondeu ao Manoel Zancheta de Manoel Zancheta em Delphi, Kylix
Eu usei o OnExit, OnEnter e Keypress do próprio componente com inherited e funcionou. Valeu! -
Olá. Criei alguns componentes personalizados, herdando de tedit, tmemo, tmaskedit, etc. Nestes componentes, eu já deixei programado códigos como no onexit, por exemplo. Agora quando uso o componente, se programado algo no onexit eu perco o conteúdo programado direto no código fonte componente. Há uma forma de manter a programação original e acrescentar outras?
-
(Resolvido) Herança Visual
pergunta respondeu ao Manoel Zancheta de Manoel Zancheta em Delphi, Kylix
deu certo... valeu Jhonas -
(Resolvido) Herança Visual
pergunta respondeu ao Manoel Zancheta de Manoel Zancheta em Delphi, Kylix
ok, mas eu queria deixar default no objeto. -
(Resolvido) Herança Visual
pergunta respondeu ao Manoel Zancheta de Manoel Zancheta em Delphi, Kylix
consegui fazer bastante coisa, sobrescreve métodos, acresecentar propriedades, porem não consegui mudar a propriedade Text do TEdit pra ficar no padrão '0,00'. -
(Resolvido) Herança Visual
pergunta respondeu ao Manoel Zancheta de Manoel Zancheta em Delphi, Kylix
Criar um novo componente pra mim já resolveu, ficou bacana. Pode marcar como resolvido. Obrigado e um grande abraço!