Eu quero fazer uma alteração na herança do form, antes dele ser criado. Eu fiz esse código
constructor TFormMasterCadastro.Create(AOwner: TComponent); type PClass = ^TClass; begin PClass(Self)^ := ClassFormMasterCadastro; inherited; end; Funciona pra eu alterar a classe do form, porem o que eu quero alterar é o parent da classe algo tipo assim: PClass(Self.ClassParent)^ := ClassFormMasterCadastro; Obrigado. ----- Original Message ----- From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Monday, May 07, 2007 10:32 AM Subject: Re: [delphi-br] Ajuda em criação de um form. Ricardo Lima wrote: > Ok, porem eu preciso ter esse código no Create do FormA. Tem um meio de fazer isto de forma eficiente, mas eu preciso que você detalhe um pouco mais o que você precisa fazer. -- Joao Morais > > ----- Original Message ----- > From: Sérgio T. Uetanabaro > To: delphi-br@yahoogrupos.com.br > Sent: Monday, May 07, 2007 10:10 AM > Subject: RES: [delphi-br] Ajuda em criação de um form. > > > É só vc instanciar FORMB aon inves de FORMA. Ex: > > Var > Form1:TFormA; > Begin > Form1 := TFormB.Create(nil); > restante do codigo > Form1.Free; > End; > > []´s > > > Sergio > > > _____ > > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em > nome de Ricardo Lima > Enviada em: segunda-feira, 7 de maio de 2007 09:48 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] Ajuda em criação de um form. > > Pessoal tenho a seguinte situação. > > FormA e FormB, o FormB herda do formA, no create do FormA eu queria que seja > criada uma stancia do FormB ao inves do FormA. > > Tipo assim: > > constructor TFormA.Create(AOwner: TComponent); > begin > Self := TFormA.Create(AOwner); > end; > > Alguem tem algum ideia? > > Obrigado a todos. > [As partes desta mensagem que não continham texto foram removidas]
