|
В иерархии VCL в большинстве случаев
существует уровень объектов-"предшественников"
(TCustomXXXX), в которых многие свойства
скрыты.
Для унаследованных от таких "предшественников"
объектов можно "открывать" на выбор те или
иные свойства. А как можно сокрыть свойства,
которые объявлены в published-области от
Object Inspector'а, но при этом оставить
возможность доступа во время работы программы?
Решение состоит в объявлении свойства "по
новой" в public-области. В примере скрытым
будет у объекта TMyControl свойство Height.
TMyControl = class(TWinControl)
protected
procedure SetHeight(Value: Integer);
function GetHeight: Integer;
public
property Height: Integer read GetHeight
write SetHeight;
end;
procedure TMyControl.SetHeight(Value:
Integer);
begin
inherited Height := Value;
end;
function TMyControl.GetHeight;
begin
Result := inherited Height;
end;
|
|
Как скрыть свойства объекта