Текущий архив: 2003.11.27;
Скачать: CL | DM;
Вниз
Package Найти похожие ветки
← →
qwe (2003-11-18 11:21) [0]взял пример с Borland Developer Network. Есть главное приложение
procedure TForm1.Button1Click(Sender: TObject);
var
PackageModule: HModule;
AClass: TPersistentClass;
begin
PackageModule := LoadPackage("Package1.bpl");
if PackageModule <> 0 then
begin
AClass := GetClass("MyForm2");
if AClass <> nil then
with TComponentClass(AClass).Create(Application as TCustomForm do
begin
ShowModal;
Free;
end;
UnloadPackage(PackageModule);
end;
end;
и модуль пакета
{$R *.DFM}
initialization
RegisterClass(TMyForm2);
finalization
UnRegisterClass(TMyForm2);
end.
Может я чего не понимаю либо они ошиблись но AClass := GetClass("MyForm2"); не работает
← →
Digitman © (2003-11-18 12:07) [1]разве MyForm2 - это имя класса ?
имя класса - TMyForm2 !
Страницы: 1 вся ветка
Текущий архив: 2003.11.27;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.016 c
