Herdamento com Frame ate a classe neta ou mais.

Delphi

15/08/2005

Ola pessoal,

[b:f9ba3615db]Como criar uma classe neta de um Frame sem que de erro na hora de abrir a unit da classe neta?[/b:f9ba3615db]

Vou explicar como o erro aparece.

1-Crie uma nova aplicação no delphi
2- Va em: File->New-> Frame
3- Va em: File->New-> Frame
4-Salve tudo(Unit1, UNit2, UNit3, Project 1)
5- Tframe3(Unit3) herda Frame2(Unit2). Codigo fica como abaixo.

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Unit2;//Botar Unit2 aqui!!!!
  TFrame3 = class(TFrame2)
  private
    { Private declarations }
  public
    { Public declarations }
  end;


Obs: TFrame é a classe pai, TFrame2 é a classe filha e TFrame3 é a classe neta.

6-Salvar tudo.
7- Feche a unit3.
8-Abra a unit3.

Ao abrir seguinte erro aparece:

Error reading Frame3.TabOrder: Property TabOrder does not exist.

Como resolver esse problema?

Desde já obrigado pessoal.


Lorde_morte.

Lorde_morte.

Curtidas 0

Respostas

Beppe

Beppe

15/08/2005

Não é assim que se herda de um frame. Para criar um descendente que não seja direto de TFrame(TFrame2 no caso) vá em File | New... | (localize a aba com o nome do projeto) | (nome do frame base) | OK.


GOSTEI 0
Lorde_morte.

Lorde_morte.

15/08/2005

Funcionou era isso mesmo.

Obrigado.

t+


GOSTEI 0
POSTAR