EAccessViolation beim Ausführen eines Packages

[DelphiNoobi]

Hallo,
Ich arbeite mit Delphi 7 und habe nach einem Tutorium die Erstellung von Packages studiert.
Im Mainprogramm wird nur das Package durch PressButton aufgerufen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  PackageModule: HModule;
  AClass: TPersistentClass;
begin
PackageModule := LoadPackage('Package1.bpl');
if PackageModule <> 0 then
  begin
  AClass := GetClass('TForm2');
  if AClass <> nil then
  with TComponentClass(AClass).Create(Application)
    as TCustomForm do
  begin
    ShowModal;
    Free;
  end;
  UnloadPackage(PackageModule);
  end;
end;

Das klappt gut, solange das Package aus einer Unit besteht.

Delphi-Quellcode:

unit Unit2;

...

procedure TForm2.Button1Click(Sender: TObject);
begin
Self.Close;
end;

initialization
RegisterClass(TForm2);

finalization
UnRegisterClass(TForm2);

end.

Wenn ich dem Package eine Unit hinzufüge, die ich mit einem Button aufrufe, werden Package und Programm nach wie vor ohne Fehlermeldung kompiliert und erzeugt.

Delphi-Quellcode:

unit Unit2;

...

implementation

uses Unit3;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
Self.Close;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Form3.Show;
Self.Close;
end;

initialization
RegisterClass(TForm2);

finalization
UnRegisterClass(TForm2);

end.

Drücke ich dann auf den Button der Unit3 öffnen soll, erhalte ich folgende Fehlermeldung:

Im Projekt Projekt1.exe ist eine Exception der Klasse EAcceccViolation aufgetreten, Meldung: Zugriffsverletzung bei Adresse 004ADAC6 in Modul 'vcl70.bpl'. Lesen von Adresse 000002F4'.

Unit 3 ist ein leeres Formular.

Kann mir vielleicht wer einen Tip geben, was ich falsch mache?

Vielen Dank,
DelphiNoobi

[mkinzler]

Wird eine Instant von TForm3 erzeugt (in Unit3)?

[DelphiNoobi]

Unit 3 ist einfach ein leeres Formular.

Delphi-Quellcode:

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

end.

[mkinzler]

Egal ob leer oder nicht, ohne Erzeugung der Instanz geht nichts.

[DelphiNoobi]

Wie erzeuge ich eine Instanz?
Es gibt auch keine Meldung beim complieren.

[mkinzler]

Form3 := TForm3.Create( self);

[DelphiNoobi]

Wo wird eine Instance definiert? In FormCreate?
Als variable ist Form3 ja als TForm definiert.

[mkinzler]

Zitat:

Wo wird eine Instance definiert? In FormCreate?

Halt vor der Verwendung. Theoretisch auch kurz vor dem .Open.

[DelphiNoobi]

Ah also schon in Form2.
Cool. Klappt. Danke

[mkinzler]

Man könnte es auch im Initialisierungsteil von Unit3 machen.