VPF::на Delphi <class of> - Форум программистов

AlexDon

Дата 13.7.2006, 17:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 27.6.2006

Репутация: нет
Всего: нет

Вот пример для Delphi

Код


type TControlClass = class of TControl;
function CreateControl(ControlClass: TControlClass;
  const ControlName: string; X, Y, W, H: Integer): TControl;
begin
  Result := ControlClass.Create(MainForm);
  with Result do
  begin
    Parent := MainForm;
    Name := ControlName;
    SetBounds(X, Y, W, H);
    Visible := True;
  end;
end;

{The CreateControl function requires a class-reference parameter to tell it what kind of control to create. It uses this parameter to call the class's constructor. Because class-type identifiers denote class-reference values, a call to CreateControl can specify the identifier of the class to create an instance of. For example,
}
  CreateControl(TEdit, 'Edit1', 10, 10, 100, 20);

А как такое сделать на C++ Builder?

_hunter

Дата 13.7.2006, 17:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 24
Всего: 98

class TControlClass : public TControl
{
}

--------------------

Tempora mutantur, et nos mutamur in illis...

AlexDon

Дата 14.7.2006, 09:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 27.6.2006

Репутация: нет
Всего: нет

Цитата(_hunter @ 13.7.2006, 17:26)

class TControlClass : public TControl
{
}

-------------------------------------------------

Уважаемый эксперт!

Я просил вот что:
Как передать в качестве параметра функции один из наследников TControl, чтобы в этой функции вызвать конструктор.

_hunter

Дата 14.7.2006, 12:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 24
Всего: 98

Уважаемый новичок.
где об этом сказанно?
+ что это меняет?
TControl& CreateControl(TControlClass& ControlClass, ...)
{
}

--------------------

Tempora mutantur, et nos mutamur in illis...

Vyacheslav

Дата 14.7.2006, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

Репутация: 47
Всего: 59

Код


TControl* CreateControl(TMetaClass* CClass, const String& ControlName, int x, int y, int w, int h)
{
  typedef TComponent *( __fastcall *TConstructor)( TComponentClass, bool, TComponent *); 
  TConstructor constructor = ((TConstructor *) CClass)[ vmtCreateObject - 1]; 
    if (TControl* control =  dynamic_cast<TControl*>constructor( CClass, true, null)) {
   
       control->Parent = MainForm;
       control->Name = ControlName;
       control->SetBounds(x, w, w, h);
       control->visible = true;
       return control;
   }
   return NULL;
}

  //cоздаем кнопку
  TControl* myControl = CreateControl( __classid(TButton), "MyButton",10, 10, 50, 26);


   
}

Добавлено @ 12:54

Цитата

type TControlClass = class of TControl;

Это озачает не наследование, а получение информации о классе

Код


TMetaClass* ControlClass = __classid(TControl);

Можно создавать контролы, используя символьное имя класса

Код


TControl* myControl = CreateControl( GetClass("TButton"), "MyButton",10, 10, 50, 26);

--------------------

С уважением, Вячеслав Ермолаев

_hunter

Дата 14.7.2006, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 24
Всего: 98

Цитата(Vyacheslav @ 14.7.2006, 12:41

)

Это озачает не наследование, а получение информации о классе

нужно будет запомнить...

--------------------

Tempora mutantur, et nos mutamur in illis...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »