F�rum D�vida sobre POO: Encapsulamento #399723

25/04/2011

                        
Boa noite amigos,

Estou com uma d�vida sobre POO:

A classe TStringGrid possui a propriedade Options, que me permite
configurar algumas caracter�sticas do TStringGrid, entre essas caracter�sticas est�
o  GoColMoving. 

Eu estava precisando utilizar essa propriedade no TDBGrid, mas o TDGrid
n�o possui, ent�o cheguei a duas solu��es:

1� Implementa��o - Fiz um casting com a classe TStringGrid no evento
Onshow do form:
  TStringGrid(DBGrid1).Options :=
TStringGrid(DBGrid1).Options - [goColMoving];

2� Implementa��o - Criei um classe herdando de TCustomGrid:

type

  MyCustomGrid:
class(TCustomGrid);

No evento OnShow do form utilizei o seguinte c�digo:

  MyCustomGrid(DBGrid1).Options
:= MyCustomGrid(DBGrid1).Options - [goColMoving];

A minha d�vida est� na segunda implementa��o, pois, a propriedade Options
na classe TCustomGrid est� definida como protected, ent�o achei que de acordo
com os conceitos de escopo(public, private, protected) da POO eu n�o deveria �enxerga-la� em outra Classe.

Porque estou podendo manipular(enxergar) a propriedade Options conforme
a 2� implementa��o?

Obrigado!

Rafael Pimenta

Curtir t�pico

+ 0

Responder

Posts

26/04/2011

Marcos Rocha

Voc� deve estar procurando algo do tipo
http://www.delphi3000.com/articles/article_2000.asp?SK=

Responder

Gostei + 0

26/04/2011

Andr� Silveira

Normalmente, voc� n�o pode acessar membros protegidos de um objeto. Mas Delphi deixa voc� acessar membros protegidos se o objeto foi definido na mesma unit. Assim, voc� pode definir um objeto derivado e fazer a mudan�a de tipo onde quer usar o membro protegido.
Seria algo assim:

THackControl = class(TCustomEdit) end;

Depois de definir esta classe, voc� pode acessar todos membros protegidos de TCustomEdit, com objetos de classe derivadas com um c�digo como esse:

THackControl(MyEdit).Color := clBlack;

Responder

Gostei + 0