Как группировать свойства компонента в инспекторе объекта

[qivi]

Что то не могу разобраться как можно сгруппировать свойства "самодельного компонента вот так:

1.jpg

[Mr.Smart]

Создаёте класс наследник TPersistent содержащий необходимые published свойства.

Код: Выделить всё

type
  TMyProps=class(TPersistent)
  published
    property My1: ....
    property My2: ....
  end;

  TMyComp = class(Tcomponent)
  published
   ...
   property MyProps: TMyProps;
  end;

[Ask]

Это свойство типа "множество".
Оно автоматически показывается в виде "группы".

[qivi]

TMyProps=class(TPersistent)
published
property My1: ....
property My2: ....
end;

А как быть если я хочу сгруппировать свойства для потомка TGraphicControl, и после изменения каждого из этих свойств нужно вызвать Invalidate? Хотелось бы сохранить возможность во время исполнения менять любое значение а не целиком переменную типа TMyProps.

[Mr.Smart]

Код: Выделить всё

type
  TMyComp = class;

  TMyProps=class(TPersistent)
  private
    fComp: TMyComp;

   procedure SetMy1(const aVal: ...);
  published
    property My1: .... write SetMy1;

  end;

  TMyComp = class(Tcomponent)
  private 
   procedure Invalidate; 
  published
   ...
   property MyProps: TMyProps read fMyProps write fMyProps;

  public
    constructor Create(aOwner: TComponent); override;
  end;

procedure TMyComp.SetMy1(....;
begin
  ...
  fComp.Invalidate;
  ...
end;

constructor TMyComp.Create(aOwner: TComponent);
begin
  inherited;
  fMyProps:=TMyProps.Create;
  fMyProps.fComp:=self;
end;