Какие поля отображаются в DBGrid в реальном времени?

[Сергей089]

Здравствуйте. У меня в таблице 63 поля. В DBGrid-е отображается часть. Как узнать какие именно поля в данный момент видно в DBGrid-е?

[_SERGEYX_]

Не очень понятно, как можно не знать какие поля отображаются в своей программе

var i: integer;
  s: string;
begin
  s := '';
  for i := 0 to DBGrid1.FieldCount - 1 do
    s := s + #13#10 + DBGrid1.Fields[i].FieldName;
  ShowMessage(s);
end;

[Сергей089]

Наверное, я не так написал. В DBGrid-е все поля сразу ведь не помещаются, и отображается только часть из них. Чтобы просмотреть другие нужно пользоваться горизонтальной прокруткой. Я хочу узнать, какие именно поля видит пользователь в DBGrid-е.

[Сергей089]

Попробовал так

procedure TFMain.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
Label1.Caption:=Label1.Caption+' '+Column.Field.DisplayName;
end;

Теперь надо сделать без повторов.

[Сергей089]

Что-то не то . Как определить начало рисования DBGrid?