Текущий архив: 2003.06.02;
Скачать: CL | DM;

Вниз

Создание компонента   Найти похожие ветки 

← →
Антон Бобиков   (2003-05-20 22:24) [0]

Дорогие граждане, помогите, мне надо Label на Panel положить и так много раз. Решил написать компонент и вот что получилось:

unit PanelPlusLabel;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, ExtCtrls, StdCtrls;

type
TPanelPlusLabel = class(TPanel)
private
{ Private declarations }
FPanelLabel:TLabel;
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner:TComponent); override;
published
{ Published declarations }
property PanelLabel:TLabel read FPanelLabel;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Samples", [TPanelPlusLabel]);
end;

{ TPanelPlusLabel }

constructor TPanelPlusLabel.Create(AOwner: TComponent);
begin
inherited;
FPanelLabel.Create(Self);
FPanelLabel.Parent:=Self;
FPanelLabel.Caption:="test panellabel";
FPanelLabel.Align:=alClient;
FPanelLabel.Layout:=tlCenter;
end;

end.


Всё вроде путьком, но то, что я для PanelLabel в режиме проектирования забиваю, то пропадает в run_time - PanelLabel пересоздаётся. Что мне надо сделать, что этого не было ? Подскажите, пожалуйста. Заранее благодарен...

---

← →
Юрий Зотов ©   (2003-05-20 23:03) [1]

Для начала исправьте создание:
FPanelLabel := TLabel.Create(Self);

---

← →
Спрашивающий   (2003-05-21 09:08) [2]

>Антон Бобиков
а что значит положить и так много раз
Может и компонент писать не надо а по циклу зделать все

---

Страницы: 1 вся ветка

Текущий архив: 2003.06.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c