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?
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
Ok, porem eu preciso ter esse código no Create do FormA.
- 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
@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
criação de um form.
Ok, porem eu preciso ter esse código no Create do FormA.
- Original Message -
From: Sérgio T. Uetanabaro
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Monday, May 07, 2007 10:10 AM
Subject: RES: [delphi-br] Ajuda em criação de um form
. 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
Ricardo Lima wrote:
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
: [delphi-br] Ajuda em criação de um form.
Ricardo Lima wrote:
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
8 matches
Mail list logo