|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Работа с DefineProperties и ".dfm"-файл
Всем привет!
Имеется часть кода: Код:
... 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 Результат: Код:
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 PropTest = ValueTest object Edit1: TEdit Left = 32 Top = 32 Width = 121 Height = 21 TabOrder = 0 Text = 'Edit1' end end Новое свойство относится к объекту Form2, а как сделать, чтобы свойство относилось к объекту Edit1 ? Есть способ выбора компонента? Последний раз редактировалось Admin, 09.05.2022 в 17:12. |