Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

Пример:

procedureTForm1.FormCreate(Sender: TObject);

begin

RegisterClasses([TButton, TEdit, TMemo, TLabel]);

end;

Это может навести вас на мысль об ограничениях, но Delphi строгий язык. Если вы хотите истинно динамическое создание объектов в слаботипизированной среде позднего связывания, используйте динамический язык типа Smalltalk. У меня есть подозрение, что Delphi использует этот механизм регистрации для регистрации всех компонентов в DCL при его запуске, позволяя этим самым создавать любой компонент во время разработки.

Создание компонентов. Используйте функцию FindClass() для получения ссылки на класс компонента, который вы хотите создать, и вызывайте его метод Create. Легко, не правда ли? В примере у меня имеется приведение типа SomeComponent к TControl, после чего я уже могу установить свойство parent (я могу делать это, поскольку я знаю, что все зарегистрированные мною классы являются потомками TControl). Для того, чтобы визуальный компонент появился на форме, вам необходимо установить свойство parent.

Пример:

procedureTForm1.CreateClick(Sender: TObject);

begin

SomeComponent:= TComponentClass(FindClass(ClassName.Text)).Create(Self);

(SomeComponent asTControl).Parent := Self;

end;

Теперь, когда вы имеете созданный компонент, как установить его свойства без использования самого большого блока case во вселенной? Очень просто: для получения информации о свойстве из структуры run-time type information (RTTI) используется функция GetPropInfo(), после чего для установления значений используется набор функций SetXXXXProp(). (Примечание: эти функции не задокументированы в файлах помощи Delphi. OO-программисты, как я понимаю, пользуются примерами из чужого кода и не изобретают свой велосипед.) У каждой функции SetXXXXProp() имеется функция-сателлит GetXXXXProp(), позволяющая узнать значения свойств объекта.

Пример:

procedureTForm1.SetPropertyClick(Sender: TObject);

var

PropType: PTypeInfo;

PropInfo: PPropInfo;

begin

PropInfo := GetPropInfo(SomeComponent.ClassInfo, PropertyName.Text);

PropType := PropInfo^.PropType;

casePropType^.Kind of

tkInteger:

SetOrdProp(SomeComponent, PropInfo, StrToInt(PropertyValue.Text));

tkChar:

SetOrdProp(SomeComponent, PropInfo, Ord(PropertyValue.Text[1]));

tkEnumeration:

SetOrdProp(SomeComponent, PropInfo, GetEnumValue(PropType, PropertyValue.Text));

tkFloat:

SetFloatProp(SomeComponent, PropInfo, StrToFloat(PropertyValue.Text));

tkString:

SetStrProp(SomeComponent, PropInfo, PropertyValue.Text);

end;

end;

Вы также можете установить значения свойств Set, Class и Method, но это будет немного сложнее. Немного позже я объясню как это можно сделать.

Это все. Вы проведете время с большой пользой, изучая исходный код VCL, и удивляясь, когда вы все там увидите собственными глазами.

Это прекрасный способ, но он имеет потенциал для массового злоупотребления. Необходимо понимание других путей достижения этой цели и выбор соответствующей техники при создании своих проектов в Delphi.

Nomadicсоветует:

Примерно таким образом (Описываем метод-обработчик события OnClick формы):

{ Example }

procedureTForm1.OnClick(ASender: TObject);

varbtnTemp: TButton;

begin

{ Creating }

btnTemp := TButton.Create(Self);

{ You can use 'with btnTemp do' operator below }

{ Inserting to Form }

btnTemp.Parent := Self;

{ Initialization }

btnTemp.Caption := 'I''m glad to see You';

btnTemp.SetBounds(20, 20, 80, 20);

{ You must define this event handler named 'OnBtnTempClick' }

btnTemp.OnClick := OnBtnTempClick;

{ Ready to show }

btnTemp.Visible := true;

{ Done. }

end;

Nomadicсоветует:

{ Здесь процедyра CreateClone, которая креатит компоненту ОЧЕНЬ ПОХОЖУЮ на входную. С такими же значениями свойств. Присваивается все, кроме методов. }

functionCreateClone(Src: TComponent): TComponent;

varF: TStream;

begin

F := nil;

try

F := TMemoryStream.Create;

F.WriteComponent(Src);

RegisterClass(TComponentClass(Src.ClassType));

F.Position := 0;

Result := F.ReadComponent( nil);

finally

F.Free;

end;

end;

Nomadicсоветует:

TFieldDataLink. За D2 не скажу, а в D1 в Help'е его нет, реализован в \DELPHI\SOURCE\VCL\DBTABLES.PAS.