Как у компонента создать property типа class of для создания

← →
amart © (2003-11-05 22:56) [0]

Как у компонента создать property типа class of
и выбирать его из списка.
Свойство создается. Но оно не показвается в списке.
Может надо какой редактор запрограммировать.
Это свойство необходимо для последующего создания формы по событию.
with AClass.Create(Application) do
try
Result := ShowModal;
finally
Free;
end;

← →
zed11 (2003-11-10 21:08) [1]

Да никак. Заполняй руками в Form.OnCreate

type
TMyComp = class(...)
private
FFormClass: string;
public
finction CreateForm(AOwner: TComponent): TForm;
published
property FormClass: string read FFormClass write FFormClass;
end;

finction TMyComp.CreateForm(AOwner: TComponent): TForm;
begin
Result := TFormClass(FindClass(FFormClass)).Create(AOwner)
end;

Это весь компонент. Чтобы свойство FormClass появлялось с выпадающим списком, для него нужно написать и зарегистрировать в IDE редактор. Наследоваться он будет от TStringProperty, а заместить в нем нужно методы GetAttributes и GetValues (они и отвечают за появление и формирование списка).

Последнее - чтобы FindClass не выдала ошибки, до ее вызова класс формы с именем FFormClass должен быть зарегистрирован в программе вызовом RegisterClass(es). Например, в секции initialization.

Как у компонента создать property типа class of для создания Найти похожие ветки