Как добавить свойства компонента в Object Inspector?

← →
Нулевой © (2006-07-24 16:07) [0]

Получил такое объявление:
type TVLBtnFancy = class(TVLFancyBtn) public Index: Integer; ImageTag: Integer; constructor Create(AnOwner: TComponent); override; destructor Destroy; override; end; TVLBtnGroup = class; TTabList = class(TCustomControl) private { Private declarations } FScrollBox: TScrollBox; FButtonList: TStringList; //FButtonCapList: TStringList; FButtons: TStrings; FTitleButton: TVLNetButton; FButtonImages: TImageList; FButtonWidth, FButtonHeight: integer; FSpace: integer; FTabHeight: integer; FCaption: string; // procedure AddNewButton procedure SetButtonList(Value: TStrings); procedure AddButton(btnCaption: string); procedure SetTabHeight(value: integer); procedure SetCaption(value: string); procedure SetButtonImages(value: TImageList); protected { Protected declarations } procedure WMSize(var M: TWMSize); message wm_Size; procedure TitleClick(Sender: TObject); procedure ButtonClick(Sender: TObject); public { Public declarations } Index: integer; TabManager: TVLBtnGroup; PosDown: boolean; constructor Create(AnOwner: TComponent); override; destructor Destroy; override; published { Published declarations } property ButtonList: TStrings read FButtons write SetButtonList; property ButtonWidth: integer read FButtonWidth write FButtonWidth; property ButtonHeight: integer read FButtonHeight write FButtonHeight; property ButtonImages: TImageList read FButtonImages write SetButtonImages; property Space: integer read FSpace write FSpace; property TabHeight: integer read FTabHeight write SetTabHeight; property Caption: string read FCaption write SetCaption; end; TVLBtnFancyEvent = procedure(Sender: TObject; tabid, btnid: Integer) of object; TVLBtnGroup = class(TCustomControl) private { Private declarations } FOnBtnFancyClick: TVLBtnFancyEvent; FTabHeight: Integer; FTabs: TStrings; procedure SetTabList(value: TStrings); procedure SetTabHeight(value: integer); protected { Protected declarations } procedure WMSize(var M: TWMSize); message wm_Size; procedure Paint; override; public { Public declarations } FTabList: TStringList; constructor Create(AnOwner: TComponent); override; destructor Destroy; override; procedure AddTabList(tabtitle: string); procedure AddFancyBtn(tabindex: integer; btnCaption: string); procedure SetTabImages(tabindex: integer; images: TImageList); procedure ButtonClick(Sender: TObject; tabindex, btnindex: integer); published { Published declarations } property Align; property Color; property Constraints; property Font; property Tabs: TStrings read FTabs write SetTabList; property TabHeight: Integer read FTabHeight write SetTabHeight; property OnBtnFancyClick: TVLBtnFancyEvent read FOnBtnFancyClick write FOnBtnFancyClick; end;
интересуют свойства Caption и Color - TVLBtnFancy

← →
DimaBr (2006-07-25 08:32) [1]

Ничо не понятно, чисто на догадках.
Если вы хотите увеличить вмдимость свойств, объявите их в секции published, при условии что в предке эти свойство есть в секциях protected или public.
TVLBtnFancy = class(TVLFancyBtn) public Index: Integer; ImageTag: Integer; constructor Create(AnOwner: TComponent); override; destructor Destroy; override; published property Caption; property Color; end;

← →
Alal © (2006-07-27 03:31) [2]

Если свойство в published, то оно автоматически в инспекторе объектов.
зарегестрируй компонент, помести на форму и проверь есть ли нужные тебе свойства в инспекторе объектов; должны быть

← →
DimaBr (2006-07-27 09:59) [3]

> Если свойство в published, то оно автоматически в инспекторе
> объектов.

Если не зарегистрировать для него Нулевой редактор.

И если оно не read-only.

Как добавить свойства компонента в Object Inspector? Найти похожие ветки