class of

Привет. Подскажите решение если возможно.

TYPE
TFormClass = class of TForm;
TForm1 = class(TForm)...

VAR
frmClass: TFormClass;

BEGIN
frmClass := TFormClass(GetClass('TForm1'));

Вопрос: можно ли через frmClass не создавая экземпляра TForm1 получить иконку формы ?

Попробуй через связываение на уровне TForm, метод Assign, вроде должен работать... или создание frmClass затем прямое присвоение свойства иконки frmClass.icon

Извините, но кажется вопрос снимается, я плохо почитал help, а там про такую ошибку написано.

There is no other solution to this problem than to remove the offending property access from your source code. If you wish to access properties or fields of a class, then you need to create an instance variable of that class type and gain access through that variable.

Хотя, если вдруг :-) возможность есть, то было бы интересно.