[night_light]

Здравствуйте! При динамическом создании экземпляра компонента TLabeledEdit не отображается метка (свойство EditLabel), само поле ввода отображается корректно. Что я неправильно делаю? Код:

Код:

constructor TValuePanel.create(AOwner: TWinControl;
                                    p: PparamValuePanel);
begin
  inherited create(AOwner);
  AOwner.InsertControl(self);
  ...
  edDecValue := TLabeledEdit.create(AOwner);
  self.InsertControl(edDecValue);
  edDecValue.EditLabel.Caption := 'Dec';
  edDecValue.SetBounds(CurLeft, CurTop, p.EditValueWidth, 15);
  edDecValue.Text := IntToStr(p.InitValue);
  ...
end;

[NumLock]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TLabeledEdit.Create(Self) do
  begin
    Parent:=Self;
    Left:=50;
    Top:=50;
    EditLabel.Caption:='Caption';
    Text:='Text';
  end;
end;

[night_light]

Спасибо! Проверил у себя, работает.
Мне нужно было дописать

Код:

edDecValue.parent := self;