dbgrid的记录显示问题

Question

在 DBGrid1DrawColumnCell中
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  Rect可以用来判断
end;

Answer 1

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Rect.left>DBGrid1.ClientRect.Left)and
     (Rect.left<DBGrid1.ClientRect.Right) then
   Begin
     可以看见
   end
  else
   Begin
     不可以看见
   end
end;

Answer 2

//设要查的字段名为：fldTest;
var 
 k:integer;
begin
  for k:=0 to dbgrid1.Columns.count-1 do
  begin
    if dbGrid1.Columns[0].FieldName=fldTest then
    begin
      if dbGrid1.Columns[0].Visible then
      begin
        ShowMessage('该字段显示！');
      end
      else begin
        ShowMessage('该字段没有显示！');
      end;
    then
  end;
end;