delphi ооп

[demonara]

вообщем мне надо создать класс поражденный от класса TButton
что бы он у меня отобразился на форме заранее благодарен
в моём понимании мой код должен работать но он не разделяет моего мнения

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tb =class(TButton);
  TForm1 = class(TForm)
    btn2: Tb;
    btn1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

[Прик]

  Tb = class(TButton);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TForm1 = class(TForm)
     btn2: Tb;
     btn1: TButton;
  private
    { Private declarations }
  public
    constructor Create(AOwner : TComponent); override;
  end;

var
  Form1: TForm1;

implementation

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  btn2 := Tb.Create(Self);
  btn2.Parent := Self;
  btn2.Left := 10;
  btn2.Top := 10;
end;

[demonara]

[Error] RLINK32: Unsupported 16bit resource in file "Unit1.dfm"
выдаёт при компиляции

[WhiteSpirit]

Попробуй перенести btn2: Tb в секцию private

[demonara]

безполезно

[WhiteSpirit]

Значит, надо искать ошибку в dfm-файле

[Пепел Феникса]

самое просто это попробуй пересоздать проект.

[Прик]

Можно еще попытаться вытереть файл *.res, если, конечно, в нем ничего не хранится. Дельфи его заново создаст.

[Пепел Феникса]

Прик, ошибка вроде как в файле dfm, но попробывать можно

[demonara]

содержимое дфм
object Form1: TForm1
Left = 439
Top = 232
Width = 870
Height = 600
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
oncreate= create
PixelsPerInch = 96
TextHeight = 13
object btn2: TB
Left = 20
Top = 20
Width = 75
Height = 25
Caption = 'btn2'
TabOrder = 0
end
end