Всем привет!
Имеется часть кода:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | ...
type
TForm2 = class (TForm)
Edit1: TEdit;
private
protected
procedure DefineProperties(Filer: TFiler); override;
procedure WriteZ(Writer: TWriter);
public
end ;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2 . WriteZ(Writer: TWriter);
begin
Writer . WriteIdent( 'ValueTest' );
end ;
procedure TForm2 . DefineProperties(Filer: TFiler);
begin
inherited ;
Filer . DefineProperty( 'PropTest' , nil , WriteZ, True );
end ;
|
Используя потоковую систему, я сохраняю дополнительное свойство
в ".dfm" : PropTest = ValueTest
Результат:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | object Form2: TForm2
Left = 203
Top = 107
Width = 300
Height = 200
Caption = 'Form2'
Color = clBtnFace
Font . Charset = DEFAULT_CHARSET
Font . Color = clWindowText
Font . Height = - 11
Font . Name = 'MS Sans Serif'
Font . Style = []
OldCreateOrder = False
Position = poDesktopCenter
PixelsPerInch = 96
TextHeight = 13
<font color="Red">PropTest = ValueTest</font>
object Edit1: TEdit
Left = 32
Top = 32
Width = 121
Height = 21
TabOrder = 0
Text = 'Edit1'
end
end
Новое свойство относится к объекту Form2, а как сделать, чтобы
свойство относилось к объекту Edit1 ?
Есть способ выбора компонента?
|
Админ: Пользуемся тегами при оформлении кода!