TTela = TTelaPersistente, ok, é que eu mudei o nome da classe e esqueci de mudar a criação no exemplo.
--- Em delphi-br@yahoogrupos.com.br, "fjogassa" <[EMAIL PROTECTED]> escreveu > > Opa, blzinha? > então abaixo vou postar o código da chamada. > TTelaPrincipal = class(TForm); > . > . > . > public > constructor create(AOwner: TComponent); > . > . > . > > Constructor TTelaPrincipal.Create(AOwner: TComponent); > var tela: TForm; > begin > tela := self; > TTela.Create(self); > end; > > > classe persistente: > TTelaPersistente = class (TPersistent) > . > . > . > private > telaDono: TForm; > protected > lstLista: TStrings; > public > constructor create(pTela: TForm); > . > . > . > > constructor TTela.create(pTela: TForm); > begin > lstLista := TSTringList.Create; > telaDono := pTela; > end; > > Abraços. > > --- Em delphi-br@yahoogrupos.com.br, Willian Jhonnes Lara dos Santos > <willianjhonnes@> escreveu > > > > ----- Mensagem original ---- > > De: fjogassa <fjogassa@> > > Para: delphi-br@yahoogrupos.com.br > > Enviadas: Sexta-feira, 5 de Setembro de 2008 13:31:36 > > Assunto: [delphi-br] Access Violation em classe persistente > > > > Olá pessoas, > > > > seguinte .. criei uma classe persistente para fazer o controle de > > janelas abertas no meu sistema. Nesta classe existe um atributo > lista: > > TStrings e ele está sendo criado no construtor da classe, mais no > > momento que eu vou dar um create ele dá access violation. > > Esta classe é chamada por um formuário principal, e que no > construtor > > do formulário principal eu dou um create na classe persistente, e é > > nesta hora que acontece o erro. > > Alguém saberia me dizer o motivo ou uma sugestão para este tipo de > > controle, sendo qeu este controle será para criar um menu com as > > janelas abertas no sistema, se alguém tiver alguma sugestão eu > aceito. > > > > Obrigado. > > ----- Fim da mensagem original ---- > > > > Cara, para podermos ajudar de maneira mais eficiente, poste o > código do construtor da classe. Assim fica mais fácil, principalmente > pq a minha bola de cristal parou de funcionar (e alguém sabe me dizer > o pq dela não funcionar mais?)... ;-) > > > > --------------------------------------------------- > > Att.: > > Willian Jhonnes L. dos Santos > > Analista/Desenvolvedor Object/Free Pascal > > willianjhonnes@ > > --------------------------------------------------- > > Seja livre. Use Linux. > > Grupo de Usuários GNU/Linux de São José dos Pinhais > > Linux user number 449753 > > --------------------------------------------------- > > Powered by Slackware Linux 12.0 > > Kernel 2.6.21.5-custom > > ---------------------------------------------------,___ > > > > > > 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] > > >
