Boa noite estou tentado mdulaziar um projeto com packages e estou tendo alguamas dificuldades gostaria da ajuda de voces. Criei um package com dois form que carrego assim var PackageModule: HModule; AClass: TPersistentClass; begin PackageModule := LoadPackage('CadCli.bpl'); if PackageModule <> 0 then begin AClass := GetClass('TFrmLocCli'); if AClass <> nil then with TComponentClass(AClass).Create(Application) as TCustomForm do begin try ShowModal; finally Free; end; end; UnloadPackage(PackageModule); end;
no form FrmLocCli tem um botão que abro o outro form assim var AClass: TPersistentClass; begin inherited; AClass := GetClass('TFrmCadCli'); if AClass <> nil then with TComponentClass(AClass).Create(Application) as TCustomForm do begin ShowModal; Free; end; no form FrmCadCli eu tenho um botão que ao clicar deveria trazer um valo que está em um Edit do Form FrmLocCli assim Edit1.Text := ufrmLocCli.FrmLocCli.Edit1.Text; só que da o seguinte erro "Project *.exe raised exeption class AEccessViolation with message 'Access violation at adress 00E11F1C in module 'CadCli.bpl'. Se alguen puder me ajudar fico grato.