Olá pessoal, fjogassa, você quer só listar os Forms abertos em um Menu? Se for, baixe o exemplo "MDI Forms.zip"no link: http://www.4shared.com/dir/5679510/48848609/Uploads.html, não precisa de tanta complicação para isso. Um abraço a todos! Silvio Clécio ----- Mensagem original ---- De: fjogassa <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 5 de Setembro de 2008 14:22:03 Assunto: [delphi-br] Access Violation em classe persistente - Com código
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 [EMAIL PROTECTED] os.com.br, Willian Jhonnes Lara dos Santos <willianjhonnes@ ...> escreveu > > ----- Mensagem original ---- > De: fjogassa <[EMAIL PROTECTED] .> > Para: [EMAIL PROTECTED] os.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/Desenvolve dor 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] > 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]
