orienta��o objeto

Question

Oi pessoal,Algu�m sabe como eu posso criar uma nova propriedade para um StringGrid? Tipo: Grid.Row.[b:273e6d5a4d]Drilldown[/b:273e6d5a4d] do tipo boolean, onde �DrillDown� seria a propriedade a ser...

Schwarze · Answer

Crie um objeto descendente do stringgrid. Assim:

type 
  THellenStringGrid = class(TStringGrid)
  private
    FDrillDown: boolean;
    procedure SetDrillDown(Value: boolean);
  published
    property DrillDown: boolean read FDrillDown write SetDrillDown;
  end;

Hellen · Answer

eu devo implementar essas fun��es? Set e FDrillDown?e isso, ta certo???:�procedure Register;begin  RegisterComponents(�Win32�, [MyGrid]);end;�...

Schwarze · Answer

T� certo. SetDrillDown � uma fun��o, FDrillDown � apenas um field, uma vari�vel que a propriedade l� direto. Voc� n�o precisa escrever uma fun��o Get, se fizer do jeito que eu mostrei.
N�o se esque�a de colocar seu objeto num package, pra torn�-lo dispon�vel em tempo de desenho.

:twisted: Ok?

Hellen · Answer

Valeu mesmo...funcionou, mas eu esqueci de falar que eu queria essa propriedade booleana dentro de grid.row.drilldown, como eu fa�o? so mais essa maozinha e eu paro de te encher o saco...brigadao!...

Schwarze · Answer

A propriedade row do stringgrid � do tipo integer. Se fosse um objeto, voc� poderia criar um tipo de objeto s� para ter essa propriedade. Por exemplo, usando Rows ao inv�s de Row:

  type
    THellenRows = class(TStrings)
    private
       procedure SetDrillDown(Value: boolean);
    public
       property DrillDown: boolean read FDrillDown set SetDrillDown;
    end;
    
    THellenStringGrid = class(TStringGrid)
    private
      FRows: THellenRows;
    public
       property Rows: THellenRows read FRows;
    end;

Hellen · Answer

obrigado mesmo!!!...

Hellen · Answer

minha unit ta assim:unit MyStrings;interfaceuses  SysUtils, Classes;type  TMyStrings = class (TStrings)  private    FDrillDown: boolean;    procedure SetDrillDown(Value: boolean);  protected    { Protected declarations }  public    property DrillDown: boolean read FDrillDown write SetDrillDown;  published    { Published declarations }  end;procedure Register;implementationprocedure Register;begin[b:3a43d1bc79]  RegisterComponents(�Win32�, [TMyStrings]);[/b:3a43d1bc79]end;procedure TMyStrings.SetDrillDown(Value: Boolean);begin  if Value=true then Value:=true;  if Value=false then Value:=false;end;end.da um esso nessa linha, q q pode ser?Incompatible types: �TComponentClass� and �Class reference�...

Schwarze · Answer

Voc� t� tentando registrar os itens do stringgrid, que n�o s�o uma classe descendente de TComponent. Voc� deve criar o descendente de TStringGrid e registrar essa classe, n�o seus itens.
Voc� tamb�m errou o SetDrillDown. Se voc� n�o precisa fazer nada quando o usu�rio mudar DrillDown para true, pode declarar sua propriedade assim:

property DrillDrown read FDrillDown write FDrillDown;

e remover o SetDrillDown.

Ok?

F�rum orienta��o objeto #157453