Создание дополнительного дочернего компонента

[Alexander Samosyuk]

Создаю свой компонент с визуализацией Label в Edit, см. рис.

При компиляции появляется еще одни Label. А при отрисовке формы нельзя скопировать готовый компнонент - выдает ошибку.

Подскажите, как избавиться от дубликата.

t

type

   TShowLabel = (Show, Hide);
  TEditVisualLabel = class(TEdit)
  private
  TextLabel : TLabel;
  FloatVErt : TFloatAnimation;
  FloatSize : TFloatAnimation;
  FloatColor : TColorAnimation;
    FLabCAp : string;
    function GetSHow: TShowLabel;
    Procedure SetShow(Value : TShowLabel);
    function GetLabelCaption: string;
    Procedure SetLabelCaption(Value : string);
    function GetLabelFontColor: TAlphaColor;
    Procedure SetLabelFontColor(Value : TAlphaColor);
    function GetStopValue : Single;
    procedure SetStopValue(Value : Single);
    function GetStartValue: Single;
    procedure SetStartValue(Value : Single);
    function GetStopFont: Single;
    procedure SetStopFont(Value : Single);
    function GetStartFont: Single;
    procedure SetStartFont(Value : Single);
    { Private declarations }
  protected

    procedure Enter(Sender : TObject);
    procedure Exi(Sender : TObject);
    { Protected declarations }
  public   { Public declarations }
  published

  property LabelFontColor : TAlphaColor read GetLabelFontColor write SetLabelFontColor;
 property LabelCaption: string read GetLabelCaption write SetLabelCaption;
  property LabelPositionStop : Single read GetStopValue write SetStopValue;
  property LabelPositionStart : Single read GetStartValue write SetStartValue;
  property LabelSizeStopFont : Single read GetStopFont write SetStopFont;
  property LabelSizeStartFont: Single read GetStartFont write SetStartFont;
  property LabelVisible : TShowLabel read GetSHow write SetSHow default TShowLabel(1);
  constructor Create(aowner: TComponent);override;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TEditVisualLabel]);
end;

constructor TEditVisualLabel.Create(aowner: TComponent);
var
Del: TLabel;
Family,Style,FontColor : TStyledSetting;
begin
 inherited Create(AOwner);
  TextLabel := TLabel.create(Self);
  TextLabel.Parent := self;                       // Скорее всего, что именно здесь весь затык, почему оно выполняется дважды
  TextLabel.StyledSettings := [Family];
  TextLabel.Align := TAlignLayout(2);
  TextLabel.TextSettings.FontColor := TAlphaColorRec.Silver;
  TextLabel.TextSettings.Font.Size := 14;
  TextLabel.SetSubComponent(true);

  FloatVErt := TFloatAnimation.Create(TextLabel);
  FloatVErt.Parent :=  TextLabel;
  FloatVErt.PropertyName := 'Position.Y';
  FloatVErt.StopValue := -20;
  FloatVErt.StartValue := 0;

  FloatSize := TFloatAnimation.Create(TextLabel);
  FloatSize.Parent :=   TextLabel;
  FloatSize.PropertyName := 'TextSettings.Font.Size';
  FloatSize.StopValue := 11;
  FloatSize.StartValue := 14;

  FloatColor := TColorAnimation.Create(TextLabel);
  FloatColor.Parent :=   TextLabel;
  FloatColor.PropertyName := 'TextSettings.FontColor';
  FloatColor.StartValue := TAlphaColorRec.Silver;


  LabelFontColor := TAlphaColorRec.Black;
  LabelVisible := TShowLabel(0);
  TextLabel.Align := TAlignLayout(2);
  //TextLabel.Width := 5000;
  //FloatColor.StopValue := LabelFontColor;

  OnExit := Exi;
  OnEnter := Enter;
  end;

procedure TEditVisualLabel.Enter(Sender : TObject);
begin
   inherited;
  if TextLabel.Position.Y<>FloatVErt.StopValue then
begin
FloatVErt.Inverse := false;
FloatVErt.Start;
FloatSize.Inverse := false;
FloatSize.Start;
FloatColor.Inverse := false;
FloatColor.Start
end;
end;

procedure TEditVisualLabel.Exi(Sender: TObject);
begin
  inherited;
 if (Self.Text='') and (TextLabel.Position.Y<>0) then
begin
FloatVErt.Inverse := true;
FloatVErt.Start;
FloatSize.Inverse := true;
FloatSize.Start;
FloatColor.Inverse := true;
FloatColor.Start
end;
end;

function TEditVisualLabel.GetLabelCaption: string;
begin
result := TextLabel.Text;
end;

function TEditVisualLabel.GetLabelFontColor: TAlphaColor;
begin
Result := FloatColor.StopValue;
end;

function TEditVisualLabel.GetSHow: TShowLabel;
begin
if TextLabel.Visible then

Result := TShowLabel(0)
else
 Result := TShowLabel(1);
end;

function TEditVisualLabel.GetStartFont: Single;
begin
Result := FloatSize.StartValue;
end;

function TEditVisualLabel.GetStartValue: Single;
begin
Result := FloatVErt.StartValue;
end;

function TEditVisualLabel.GetStopFont: Single;
begin
Result := FloatSize.StopValue;
end;

function TEditVisualLabel.GetStopValue: Single;
begin
Result := FloatVErt.StopValue;
end;


procedure TEditVisualLabel.SetLabelCaption(Value: string);
begin
TextLabel.Text := Value;
end;


procedure TEditVisualLabel.SetLabelFontColor(Value: TAlphaColor);
begin
FloatColor.StopValue :=value;
end;

procedure TEditVisualLabel.SetShow(Value: TShowLabel);
begin
if Value = TShowLabel(0) then
    TextLabel.Visible := true
  else
   TextLabel.Visible := False;
end;

procedure TEditVisualLabel.SetStartFont(Value: Single);
begin
FloatSize.StartValue := Value;
TextLabel.TextSettings.Font.Size := Value;
end;

procedure TEditVisualLabel.SetStartValue(Value: Single);
begin
FloatVert.StartValue := Value;
end;

procedure TEditVisualLabel.SetStopFont(Value: Single);
begin
FloatSize.StopValue := Value;
end;

procedure TEditVisualLabel.SetStopValue(Value: Single);
begin
FloatVert.StopValue := Value;
end;
end.

Изменено 6 сентября, 2017 пользователем Alexander Samosyuk

[Равиль Зарипов (ZuBy)]

для вручную создаваемых контролов внутри компонентов, нужно ставить

<Control>.Stored := false;

а для самого компонента 

Self.Stored := true;

 

P.S. прочтите что означает это свойство

[Alexander Samosyuk]

Спасибо большое. Буду смотреть.