Ir para conteúdo
Fórum Script Brasil

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

  1. 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.
  2. 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!
  3. Estava apenas testando para ver, pois surgiu aqui a possibilidade de deixar uma marca d´agua de fundo, seria uma imagem bem suave.
  4. 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.
  5. Não funcionou.... Não dispara o evento DBGrid1DrawDataCell.
  6. 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.
  7. Fiz com TObjectList e funcionou certinho. Grato!
  8. 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.
  9. 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?
  10. Eu usei o OnExit, OnEnter e Keypress do próprio componente com inherited e funcionou. Valeu!
  11. 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?
  12. 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'.
  13. Criar um novo componente pra mim já resolveu, ficou bacana. Pode marcar como resolvido. Obrigado e um grande abraço!
×
×
  • Criar Novo...