ОоП полиморфизм ... наследование ...

[Xsires]

добрый время суток =) у меня есть массив TBitBtn но вот для решения мой задачи мне хотелось бы расширить чуть чуть этот класс ... как на его основе создать класс с новым полем скажем byte типа ??? сорь за банальный вопрос но в ооп я сооовсем не въезжал даже представления не имею =(

[GunSmoker]

type
  TMyBitBtn = class(TBitBtn)
  private
    FMyField: Byte;
  published
    property MyField: Byte read FMyField write FMyField;
  end;

Три замечания:
1. Чтобы TMyBitBtn можно было бросать на форму как это делается с TBitBtn - его надо регистрировать в IDE. Если не регистрировать - то на форму бросить в design-time не получится. Но можно использовать ручками, например:

type
  TForm1 = class(TForm)
  ...
    MyBtn1: TMyBitBtn;
  ...
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyBtn1 := TMyBitBtn.Create(Self);
  MyBtn1.Parent := Self;
  MyBtn1.Name := 'MyBtn1';
  MyBtn1.Top := 5;
  MyBtn1.Left := 5;
  MyBtn1.Width := 100;
  MyBtn1.Height := 25;
  MyBtn1.MyField := 3;
end;

2. Вместо полноценной регистрации можно использовать обходной путь: метод Geo. Но надо понимать, что в инспекторе объектов MyField тогда не появится. Просто при запуске программы вместо TBitBtn на форме повально будут использоваться модифицированные TBitBtn.

3. А может - вам и не нужен подкласс? Любой компонент имеет свойство Tag: Integer, которое вы можете использовать как угодно, на своё усмотрение.

[Xsires]

Огромное спасибо =)