NewComponent

← →
Seldon (2003-02-26 22:04) [0]

unit NewComponent;

interface

uses
SysUtils, Classes, Controls, StdCtrls;

type
TNewComponent = class(TCustomControl)
private
FButton: TButton;
FEdit: TEdit;
public
constructor Create(AOwner:TComponent); override;
published
property Button:TButton read FButton;
property Edit:TEdit read FEdit;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Standart", [TNewComponent]);
end;

{ TNewComponent }

constructor TNewComponent.Create(AOwner: TComponent);
begin
inherited;
FButton:=TButton.Create(Self);
FButton.Parent:=Self;
FButton.Name:="Button";
FButton.Top:=0;
FButton.Left:=0;
FButton.Width:=75;
FButton.Height:=25;
FEdit:=TEdit.Create(Self);
FEdit.Parent:=Self;
FEdit.Name:="Edit";
FEdit.Top:=25;
FEdit.Left:=0;
FEdit.Width:=75;
FEdit.Height:=25;
Width:=75;
Height:=50;
end;

end.

Проблема: Все изменения свойств Button и Edit, произведённые в DesignTime, не сохраняются в dfm файл и в RunTime. Подскажите в чём моя ошибка.
Спасибо.

← →
Романов Р.В. © (2003-02-26 22:30) [1]

Owner не форма по этому не сохраняется. В D6 у компонентов появился новый элемент в стилях (забыл как он называется), который указывает, что состояние компонента должно быть записано в dfm. Применяется как раз в таких случаях.

FButton.SetSubComponent(True);
FEdit.SetSubComponent(True);

NewComponent Найти похожие ветки