Форум: "Основная";
Текущий архив: 2007.09.02;
Скачать: [xml.tar.bz2];

Вниз

Как запустить форму из пакета?   Найти похожие ветки 

← →
ChaoX ©   (2007-06-21 11:51) [0]

См. сабж.
Я делаю так:
Форма в пакете - тип 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) [1]

Собери оба проекта с установленной опцией Build With Run-Time Packages.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2007.09.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.038 c