Текущая строка и поле в DBGrid

Previous  Top  Next

    
 

 

 

Code:

unit dbcolform;

 

interface

 

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids, DBGrids, DB, DBTables;

 

type

TForm1 = class(TForm)

   Table1: TTable;

   DataSource1: TDataSource;

   DBGrid1: TDBGrid;

   Label1: TLabel;

   procedure DBGrid1ColEnter(Sender: TObject);

   procedure DataSource1DataChange(Sender: TObject; Field: TField);

private

   { Private declarations }

public

   { Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.DFM}

 

type

TFake = class (TDBGrid);

 

procedure TForm1.DBGrid1ColEnter(Sender: TObject);

begin

Label1.Caption := Format (

   'Column: %2d; Row: %2d',

   [TFake (DbGrid1).Col,

   TFake (DbGrid1).Row]);

end;

 

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);

begin

DBGrid1ColEnter (sender);

end;

 

end.

 

 

 

©Drkb::03049

       

Взято с http://delphiworld.narod.ru