Обертка для Tstatusbar

RAVen42

Всем доброго времени суток!

Понадобилось на диалоговую форму добавить StatusBar. Так как такого компонента нет в палитре FR, решил сделать обертку по аналогии с примером из документации (до этого такими вещами не занимался).
И сразу же столкнулся с проблемой как передать свойства Panels, TStatusBar

...
type
  TfrxStatusBarControl = class(TfrxDialogControl)
  private
    FStatusBar: TStatusBar;
  public

    constructor Create(AOwner: TComponent); override;
    class function GetDescription: String; override;

  published

    { добавляем новые свойства }  
      property Panels : TStatusBar  read ??? write ????;
...

Подскажите пожалуйста, что писать в read и write

RAVen42

Изменил немного исходник свойство Panels появилось:

...
type
  TfrxStatusBarControl = class(TfrxDialogControl)
  private
    FStatusBar: TStatusBar;
    FPanels: TStatusPanels;
    procedure SetPanels(Value: TStatusPanels);
  public

    constructor Create(AOwner: TComponent); override;
    class function GetDescription: String; override;


  published
    { добавляем новые свойства }
      property Panels: TStatusPanels read FPanels write SetPanels;

...
procedure TfrxStatusBarControl.SetPanels(Value: TStatusPanels);
begin
  FStatusBar.Panels := Value;
end;
...

Но кнопки для вызова редактора панелей нет . Думаю что-то нужно ещё добавить???

RAVen42

Посмотрев другие обертки, в том числе от пользователей данного форума, везде есть такая штука:

type
  TfrxXXXXXObject = class(TComponent)  // fake component
  end;

Для чего это делается??? кто может сказать???

Nightmareterrible

Чтобы получить доступ не только к public-методам и переменным, но и к protected и private, т.к. они становятся доступны для потомков класса.

RAVen42

Nightmareterrible Спасибо за объяснение.

RAVen42

Народ, у кого-нибуть есть пример обертки визуального компонента, пример из руководства программиста не подходит, нужен пример реализации более сложных свойств, нежели caption и kind.