Доступ к общедоступным методам и свойствам внутри Delphi BPL

У меня есть приложение, которое загружает BPL, как внутри простой формы.

Эта форма является необязательной опцией основного приложения.

BPL загружается правильно, форма отображается правильно, но я не знаю, как получить доступ к общедоступным методам и свойствам формы внутри bpl.

Кто-нибудь может привести простой пример?

мой код:

// Load the BPL on aplication Load
LoadPackage( 'About.bpl' );

// CAll for TForm1 inside the About.BPL
var
  AClass: TClass;
  AForm: TForm;
begin

    AClass := GetClass('TForm1');
    if AClass <> nil then
  begin
        Application.CreateForm(TComponentClass(AClass), AForm);
        AForm.Show;
    end;

// The unit TForm1 inside the BPL package
unit Unit1;

interface

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

type
    TForm1 = class(TForm)
        Button1: TButton;
        Label1: TLabel;
        procedure Button1Click(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
        PublicMthd;
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.PublicMthd;
Begin
    ShowMessage('Inside call');
End;

initialization
    RegisterClass(TForm1);

finalization
    UnRegisterClass(TForm1);

end.

Как я могу получить доступ к «PublicMthd» в Tform1?

5
задан DRokie 19 December 2011 в 10:44
поделиться