Подгрузка DFM

← →
Ш-К (2005-09-06 15:09) [0]

У меня есть созданная форма. К этой форме я храню отдельно какой-то новый DFM. Разумеется, объекты "родного" DFM и DFM нового совпадают. Разница только в установленных свойствах.
Как проинициировать в рантайм новый DFM для созданной формы.

← →
Ш-К (2005-09-06 15:29) [1]

Если короче.
Есть форма:

object Form1: TForm1
Left = 351
Top = 109
Width = 696
Height = 800
Caption = "Form1"
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
end

Надо в рантайм установить св-ва из DFM:

object Form1: TForm1
Left = 264
Top = 147
Width = 381
Height = 244
Caption = "OtherCaption"
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
end

Можно поробовать воспользоваться методом TObject.FieldAddress: function FieldAddress(const Name: ShortString): Pointer;
Который позволяет access a specified published field of an object. FieldAddress returns a pointer to the field if it exists. If the object has no published field by that name, FieldAddress returns nil (Delphi) or NULL (C++).

Подгрузка DFM Найти похожие ветки