Проблема такая есть главное приложение, подключаю dpl c формой

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

initialization
form2 := TForm2.Create(Application);
form2.Show;
end.

форма 2 должна быть MDIChild как это сделать?

По отношению к главной форме приложения

Form2.FormStyle:=fsMDIChild

тогда Access Vioalation

поправка

Cannot create form. No MDI forms are currenty active

ну так сделай главную форму fsMDIForm

она такая и есть

а покажи файл dpr

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ActnList, XPStyleActnCtrls, ActnMan, StdCtrls;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Start1: TMenuItem;
procedure Start1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
FPackageHandle: THandle;
procedure LoadPluginPackage;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.LoadPluginPackage;
var
FileName: TFileName;
begin
FileName:='C:\plugins\package1.bpl';
FPackageHandle:=LoadPackage(FileName);
end;

procedure TForm1.Start1Click(Sender: TObject);
begin
LoadPluginPackage;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnloadPackage(FPackageHandle);
end;

end.

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

самое первое, что приходит в голову - это то, что плагин ничего не знает о главном Application...
я попробовал передать объект Application - запускается и работает, но при закрытии главной формы - каскад ошибок

Это сообщение отредактировал(а) man2002ua - 30.10.2003, 15:24

А как сделать что бы знал?

Добавить в requred пакаджа главную форму проекта?

я попробовал передать объект Application - запускается и работает, но при закрытии главной формы - каскад ошибок

вышлите плиз

Цитата

вышлите плиз

нечего высылать, это неверное решение :-\

// package
var
GlobalMemoryPointerForApplication: DWORD;
initialization
GlobalMemoryPointerForApplication := <я передавал руками, чтобы быстрее было>
Application := TApplication(GlobalMemoryPointerForApplication);
form2 := TForm2.Create(Application);
form2.Show;
end.