Как запустить форму из пакета? [D7, WinXP]
ChaoX © (2007-06-21 11:51:00)
См. сабж.
Я делаю так:
Форма в пакете - тип TPkFrm,
в разделе initialization регистрирую класс:
initialization
RegisterClass (TPkFrm);
В основной программе - код такой:
procedure TForm1.Button1Click(Sender: TObject);
var
PackedForm: TForm;
FormClass: TFormClass;
HandlePack: HModule;
begin
HandlePack := LoadPackage('pkform.bpl');
if HandlePack > 0 then
begin
FormClass := TFormClass(GetClass ('TPkFrm'));
if Assigned (FormClass) then
begin
PackedForm :=
FormClass.Create(Application);
PackedForm.ShowModal;
end
else
begin
ShowMessage('Error creating form');
end;
end
else
begin
ShowMessage('Error loading package');
end;
end;
Выдаёт 'Error creating form', то есть класс формы не виден!
Помогите!!!!
Сергей М. (2007-06-21 12:07:00) [1]
Собери оба проекта с установленной опцией Build With Run-Time
Packages.
Наверх 
ЧАТ |
Орешник |
|
