как создать объект по имени класса ?

← →
SkyP (2004-07-22 09:32) [0]

есть строка с именем класса,
как создать объект ?

← →
Sun bittern © (2004-07-22 09:41) [1]

function ETSCreateComponent(AComponentClass: TClass; AOwner: TComponent = Nil): TComponent;
var
A: TComponentClass;
begin
A := TComponentClass(AComponentClass);
Result := A.Create(AOwner);
end;

+ RegisterClasses

← →
SkyP (2004-07-22 09:44) [2]

создание обьъекта по имени класса

← →
Sandman25 © (2004-07-22 09:51) [3]

type
TWinControlClass = class of TWinControl;

procedure TForm1.FormCreate(Sender: TObject);
var
Control : TWinControl;
begin
RegisterClass(TButton);
Control := TWinControlClass(FindClass("TButton")).Create(Self);
Control.Parent := Self;
end;

← →
SkyP (2004-07-22 09:58) [4]

спасибо, даже извените,
FindClass знал :)))

А я не знал :) Зашел в classes.pas, включил Code Explorer, нашел GetClass, вызвал, нарвался на AV, подумал, поискал, где еще вызывается GetClass - нашел FindClass, вызвал нарвался на ошибку незарегистрированного класса, подумал, вспомнил о RegisterClass. Метод научного тыка, в общем :)

как создать объект по имени класса ? Найти похожие ветки