Компонент

← →
Alex © (2002-07-05 20:27) [0]

Как при написании компонента сделать такой, как например у "Font" плюсик с раскрытием вниз? и как обрабатывать его в "read&write"

← →
Eugene Lachinov © (2002-07-05 20:50) [1]

type
TMyFont = class(TPersistent)
private
FSize : Integer;
public
procedure Assign(Source : TPersistent); override;
published
property Size : Integer read FSize write FSize;
end;

TMyComponent = class(TComponent)
private
FMyFont : TMyFont;
procedure SetMyFont(Value : TMyFont);
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
published
property MyFont : TMyFont read FMyFont write SetMyFont;
end;

{ TMyFont }

procedure TMyFont.Assign(Source : TPersistent);
begin
if Source is TMyFont then
FSize := (Source as TMyFont).Size
end;

{ TMyComponent }

constructor TMyComponent.Create(AOwner : TComponent);
begin
FMyFont := TMyFont.Create;
inherited Create(AOwner)
end;

destructor TMyComponent.Destroy;
begin
FMyFont.Free;
inherited Destroy
end;

procedure TMyComponent.SetMyFont(Value : TMyFont);
begin
FMyFont.Assign(Value)
end;

← →
Alex (2002-07-05 22:12) [2]

Спасибо!!!

Компонент Найти похожие ветки