Советы по Delphi
Создание объектов любого типа
CLASSES.PAS определяет функцию с именем FindClass, возвращающую классовую ссылку на этот класс (такую же, как и при регистрации класса). Вот пример, который динамически создает компоненты на основе имени класса, введенного в поле редактирования. Не забывайте при этом вызвать RegisterClasses и перечислять все возможные классы, которые вы имеете намерение создать.
| unit Unit1; interface usesSysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, DB, DBTables; typeTForm1 = class(TForm)Button1: TButton;Edit1: TEdit;procedure Button1Click(Sender: TObject);publicNextTop : integer;end; varForm1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);varNewObj : TControl;NewClass: TPersistentClass;beginNewClass := FindClass(Edit1.Text);NewObj :=TControl(TComponentClass(NewClass).Create(Self));NewObj.Parent := Self;NewObj.Name := NewObj.ClassName+IntToStr(NextTop);NewObj.Top := NextTop;NextTop := NextTop+20;end; initializationRegisterClasses([TButton,TEdit,TLabel]);end. |
[000483]
