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
