u_form1.~pas

来自「很好地delphi书籍源码」· ~PAS 代码 · 共 40 行

unit U_Form1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, StdCtrls,Variants;

type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ListBox1: TListBox;
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
var
  Cir:Word;

{$R *.DFM}

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  MyVariant : Variant;
begin
   //取得目前字段的字段值
   ListBox1.Items.Add('目前字段的名称是:' + Column.Title.Caption);
   //取得目前字段的字段值