Olá a todos! estou modularizando um novo sistema que estamos desenvolvendo, 
minha duvida e com relação a como trabalhar com os pacoes carregar/descarregar, 
estou utilziando uma função para carregar e dar um show no form.

Faço dessa forma

  procedure TForm2.Segurana1Click(Sender: TObject);
  Var
    AClass    : TPersistentClass;
    intLoadOk : Integer;
  begin
     intLoadOk := LoadPackage(ExtractFilePath(Application.ExeName)+ 
'Seguranca.bpl');
     If intLoadOk<>0 Then
     Begin
        AClass := GetClass('TfrmPerfilConfig');
        If AClass <> nil Then
          with TComponentClass(AClass).Create(Application) as TCustomForm Do
            Show
        Else
           ShowMessage('Classe não econtrada...');
     End;
  end;

  Ai vem as duvidas, em quem ponto devo descarregar o pacote da memória?

  Outra coisa se eu abrir o mesmo formulária mais de uma vez, eles ficam como 
se fossem o mesmo formulário e tudo que faço em um acontece no outro, ai eu 
fecho o primeiro quando vou fechar o segundo da acess violation por que ja foi 
fechando quando fechei o primeiro, alguem tem ideial do que pode ser isso?

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 


Responder a