Советы по Delphi. Версия 1.4.3 от 1.1.2001

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

Пример:

procedure TForm1.CreateClick(Sender: TObject);
begin
 SomeComponent:= TComponentClass(FindClass(ClassName.Text)).Create(Self);
 (SomeComponent as TControl).Parent := Self;
end;

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

Пример:

procedure TForm1.SetPropertyClick(Sender: TObject);
var
 PropType: PTypeInfo;
 PropInfo: PPropInfo;
begin
 PropInfo := GetPropInfo(SomeComponent.ClassInfo, PropertyName.Text);
 PropType := PropInfo^.PropType;
 case PropType^.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. 

Как правильно создавать органы управления в runtime?

Nomadic советует:

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

{ Example }
procedure TForm1.OnClick(ASender: TObject);
var btnTemp: 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, которая креатит компоненту ОЧЕНЬ ПОХОЖУЮ на входную. С такими же значениями свойств. Присваивается все, кроме методов. }
function CreateClone(Src: TComponent): TComponent;
var F: 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;

Как заставить произвольный компонент реагировать на изменения в TDataSource?

Nomadic советует:

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

type TMyForm = class(TForm)
 {…}
 Table1: TTable;
 DataSource1: TDataSource;
private
 FDL : TFieldDataLink;
 procedure RecChange(Sender: TObject);
public
 {...}
end;

procedure TMyForm.FormCreate(Sender: TObject);
begin
 FDL:=TFieldDataLink.Create;
 FDL.OnDataChange := RecChange;