Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.027 c
14-90070
aVast
2003-11-05 14:32
2003.11.27
а знаете ли вы что такое DELPHI?


1-89908
olookin
2003-11-14 21:59
2003.11.27
Пожалуйста гляньте - есть тут ошибка?


3-89779
}|{yk
2003-11-06 17:19
2003.11.27
Calculated-поля и фильтр


14-90074
Stas
2003-11-05 12:12
2003.11.27
Структура EXE файла


3-89775
Reddy
2003-11-07 07:57
2003.11.27
как программно установить курсор на нужный столбец в DBGrid