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

Озеров Валентин

unit Unit1;

interface

uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type TForm1 = class(TForm)

 Button1: TButton;

 procedure Button1Click(Sender: TObject);

private

 { Private declarations }

public

 { Public declarations }

 procedure myClick(Sender: TObject);

end;

var Form1: TForm1;

const i : integer = 0;

implementation

{$R *.DFM}

procedure TForm1.myClick(Sender: TObject);

begin

 with Sender as TButton do Self.Caption := ClassName + ' ' + Name;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 with TButton.Create(self) do begin

Left := 20;

Top := 30 + i;

Width := 120;

Height := 40;

Name := 'ThisButton' + IntToStr(i);

Caption := 'There' + IntToStr(i);

OnClick := MyClick; {

процедура, определенная где-то еще }

Parent := Form1;

 end; {end with}

 inc(i, 40);

end; {end button1.click}

end.

Решение для динамически создаваемых компонентов

Delphi 1

Предупреждение:

Если вы просто хотите во время выполнения приложения создавать компоненты необходимого вам типа, ознакомьтесь с файлом delphi\doc\VB2Delph.wri и следуйте его рекомендациям, лучшего способа изучения этой темы пока не существует. Данный совет повествует об использовании в Delphi RTTI.

Во-первых, в вашем приложении необходимо зарегистрировать все классы, экземпляры которых вы собираетесь в каком-то месте кода создавать. Сделать это можно с помощью функций RegisterClass, RegisterClasses и RegisterClassAlias.

Пример:

procedure TForm1.FormCreate(Sender: TObject);

begin

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

end;

Это

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

Создание компонентов. Используйте функцию 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);