RES: [delphi-br] Ajuda de vocês, trabalhando com p acotes.
Ricardo Lima [**] Pessoal tenho a seguinte situação: Meu sistema é dividido em pacotes. FormPrincipal.exe Pacote1.Bpl Pacote2.Bpl Pacote3.Bpl Pacote4.Bpl Pacote5.Bpl Pacote6.Bpl Pacote7.Bpl Pacote8.Bpl Tenho uma classe x que é instanciada no formulário principal, essa classe tem algumas informações do tipo parametros do sistema, informações do usuário que está logado etc... ,porem essa classe precisa ser conhecida e acessada por todos os pacotes, alguem pode me dar uma ideia de como fazer os pacotes conhecerem e acessar essa classe no Form pincipal. [*] Ao que entendi tenho duas sugestões. 1-Voce pode usar uma interface para implementar esta classe 2-Voce pode tornar este pacote principal como 'requerido' por todos os outros pacotes e usar o Uses com a unit que tem esta classe nas units dos outros pacotes... Atenc. Elazar ___ O Yahoo! está de cara nova. Venha conferir! http://br.yahoo.com -- 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
RES: [delphi-br] Ajuda de vocês, trabalhando com p acotes.
Ricardo
[***]
Pelo que vi acho a melhor opção utilizar interfaces, porem ocorre outro
problema.
Como consigo acessar os metodos/propriedades de um objeto conhecendo
somente a inteface que o mesmo implementa.
[]
Voce declara na Interface procedimentos/funções para ajustar/ler as
propriedades.
Ex.
IMinhaInterface = Interface
function GetColor : TColor;
procedure SetColor( Value : Tcolor);
property Color : TColor read GetColor write Setcolor;
end;
TMinhaClasse = class( TInterfacedObject, IMinhaInterface)
private
FColor : TColor;
protected
public
function GetColor : TColor;
procedure SetColor( Value : TColor);
end;
{ TMinhaClasse }
function TMinhaClasse.GetColor: TColor;
begin
Result := FColor;
end;
procedure TMinhaClasse.SetColor(Value: Tcolor);
begin
FColor := Value;
end;
Atenc.
Elazar;
___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale
o discador agora!
http://br.acesso.yahoo.com
--
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
