quarta-feira, 23 de setembro de 2009

Como apresentar o número da linha e coluna em um dbgrid

{Podemos derivar uma classe a partir de TDBGrid e para utilizar este recurso!}

implementation
{$R *.DFM}

type
TMostraProp = class (TDBGrid);
{evento OnColEnter do DBGrid}
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
Caption := Format(‘Coluna: %2d; Row: %2d’,
[TMostraProp(DbGrid1).Col, TMostraProp(DbGrid1).Row]);
end;

{ evento OnDataChange do DataSource }
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
DBGrid1ColEnter(Sender);
end;

Nenhum comentário:

Postar um comentário