Текущий архив: 2005.10.02;
Скачать: CL | DM;
Вниз
Подгрузка 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
← →
GLFox © (2005-09-06 15:35) [2]Можно поробовать воспользоваться методом 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++).
Страницы: 1 вся ветка
Текущий архив: 2005.10.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.057 c
