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.
