Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.16;
Скачать: CL | DM;

Вниз

Создание компонетов по имени класса   Найти похожие ветки 

 
eugie   (2007-11-22 09:40) [0]

Подскажите, пожалуйста, можно ли выполнить следующее действие и если можно, то как:
- есть имя класса, хранящееся во внешнем источнике (в файле, реестре, в поле БД);
- можно ли, счтитав имя класса, создать компонент в приложении (то есть, имея стоку с названием класса нужно создать компонент)?


 
eugie   (2007-11-22 09:47) [1]

для наглядности:
var vCompName:String;

считываем в vCompName название класса - "TEdit"

и вот теперь нужно динамически создать компонент типа TEdit


 
Reindeer Moss Eater ©   (2007-11-22 09:51) [2]

геткласс + ф1


 
DimaBr ©   (2007-11-22 10:35) [3]

Можно, но для этого (предварительно) нужно зарегистрировать все классы хранящиеся в ващей БД.


 
Юрий Зотов ©   (2007-11-22 10:59) [4]

> eugie

См. в справке: GetClass, FindClass, RegisterClass.


 
eugie   (2007-11-22 13:02) [5]

а примерчик можно?


 
homm ©   (2007-11-22 13:07) [6]

> [5] eugie   (22.11.07 13:02)
> а примерчик можно?

> [2] Reindeer Moss Eater ©   (22.11.07 09:51)
> геткласс + ф1


 
eugie   (2007-11-22 13:28) [7]

ну ладно
try
 FindClass("TComboBox");
except
 RegisterClass("TComboBox");
end;

а дальше что делать-то? как этот комбобокс создать?


 
Reindeer Moss Eater ©   (2007-11-22 13:38) [8]

Конструктором класса конечно.


 
DimaBr ©   (2007-11-22 14:12) [9]

procedure TForm1.Button1Click(Sender: TObject);
var AClassName: string;
   AClassP: TPersistentClass;
   AObject: TPersistent;
begin
//   AClassName := LoadFromDataBase_Or_Registry;
  AClassName := "TComboBox";
  AClassP := FindClass(AClassName);
  if Assigned(AClassP) then begin
    AObject := TComponentClass(AClassP).Create(self);
    TControl(AObject).Parent := Form1;
  end;
end;


initialization
 RegisterClasses([TComboBox]);
end.


 
eugie   (2007-11-23 03:40) [10]

>2 DimaBr

Спасибо! :)



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

Текущий архив: 2007.12.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.028 c
6-1175877419
SinglCOOLer
2007-04-06 20:36
2007.12.16
SakeMail


15-1195213340
Dark
2007-11-16 14:42
2007.12.16
Отладка программы или неуловимый глюк


15-1194128449
Сусл
2007-11-04 01:20
2007.12.16
Посоветуйте книгу про продвижение продукта в сети


8-1170999683
Belkam
2007-02-09 08:41
2007.12.16
Слайд шоу


11-1181380412
mdw
2007-06-09 13:13
2007.12.16
Версия 2.65