Muchas gracias a los 2.
Lo he logrado utilizar el PlugBase
Ahora, el problema que tengo es capturar el evento onClose, y onHide
Este es el codigo
Código Delphi
[-]
unit Principal;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, ShellApi,
Graphics, Controls, Forms, Dialogs, StdCtrls;
Type
TEvnPro = class(TForm)
procedure FormHide(Sender : TObject; var Action : TCloseAction);
end;
var
EvnPro : TEvnPro;
AClass: TPersistentClass;
handle: HModule;
Titulo, Version: TComponent ;
FBase : Tform;
Ver : Boolean;
implementation
{$R *.DFM}
Function VersionProg:Boolean;stdcall;external 'lib/Version.dll';
Procedure TEvnPro.FormHide(Sender : TObject; var Action : TCloseAction);
begin
showMessage('Te Pille');
end;
initialization
Ver := VersionProg;
if Ver then begin
if FileExists('bin/PlugBase.bpl') then
begin
handle := LoadPackage('bin/PlugBase.bpl');
if handle <> 0 then
begin
AClass := GetClass('TBase');
if AClass <> nil then
begin
FBase := nil;
FBase := TComponentClass(AClass).Create(Application) as TForm;
FBase.Tag := handle;
FBase.ShowModal;
FBase.OnHide := TEvnPro.FormHide; <-- No puedo Capturar el Evento (E2009 Incompatible types: 'Parameter lists differ')
end;
end;
end;
end
else begin
showmessage( 'Versión Incorrecta!' );
end;
end.
Muchas gracias nuevamente por la ayuda