Opa, blzinha? Segue o código do exemplo. TTelaPrincipal = class(TForm); . . . public constructor create(AOwner: TComponent);
var Tela: TTelaPersistente; implementation . . . Constructor TTelaPrincipal.Create(AOwner: TComponent); var telaAux: TForm; begin TelaAux := self; Tela.Create(TelaAux); end; classe persistente: TTelaPersistente = class (TPersistent) . . . private telaDono: TForm; protected lstLista: TStrings; public constructor create(pTela: TForm); . . . constructor TTelaPersistente.create(pTela: TForm); begin lstLista := TSTringList.Create; telaDono := pTela; end; Obrigado desde já. Abraços. --- Em delphi-br@yahoogrupos.com.br, Willian Jhonnes Lara dos Santos <[EMAIL PROTECTED]> escreveu > > ----- Mensagem original ---- > De: fjogassa <[EMAIL PROTECTED]> > 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 > [EMAIL PROTECTED] > --------------------------------------------------- > 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] >
