неподвижные столбцы DBGrid

[MargoNik]

Здравствуйте,
в DBGrid выводится большое количество столбцов, которые само собой не помещаются на экран и приходится пользоваться полосой прокрутки, но первые 3 столбца необходимо всегда видеть перед глазами, как сделать их неподвижными?

[М_Виктор]

Сообщение от MargoNik

Здравствуйте,
в DBGrid выводится большое количество столбцов, которые само собой не помещаются на экран и приходится пользоваться полосой прокрутки, но первые 3 столбца необходимо всегда видеть перед глазами, как сделать их неподвижными?

Использовать компонент DBGridEh из библиотеки EhLib.
Мне встречались ссылки на сайты, где "старенькую" версию EhLib 4.* можно скачать бесплатно.

[Grag]

Вот что удалось нарыть по вопросу, может поможет:

unit Fcdgrid;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, Grids, DBGrids, DBCtrls, DB, Menus;
type
TFixedColDBGrid = class(TDBGrid)
private
   FUserFixedCols: Integer;
protected
   procedure LayoutChanged; override;
   procedure SetUserFixedCols(I: Integer);
published
   property UserFixedCols: Integer read FUserFixedCols write SetUserFixedCols;
end;
procedure Register;
implementation
procedure Register;
begin
  RegisterComponents('Data Controls', [TFixedColDBGrid]);
end;
procedure TFixedColDBGrid.LayoutChanged;
begin
  inherited LayoutChanged; {   присваиваем FixedCols 1 если индикатор, иначе 0 }
  if ((inherited FixedCols + FUserFixedCols) < inherited ColCount) then
   inherited FixedCols := (FUserFixedCols + inherited FixedCols);
end;
procedure TFixedColDBGrid.SetUserFixedCols(I: Integer);
begin
  FUserFixedCols := I;
  LayoutChanged;
end;
end.