Скачать: CL | DM;

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

← →
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 знал :)))

---

← →
Sandman25 ©   (2004-07-22 10:01) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.074 c