DBGrid c FixedCols

Delphi , Компоненты и Классы , TDBGrid

Кам мне при прокрутке "зафиксировать" левое поле табличной сетки?

Я делаю это таким образом:

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.

Код, который вы предоставили, является для пользовательского компонента DBGrid, TFixedColDBGrid, который позволяет пользователям задать количество фиксированных столбцов в таблице. "Фиксированный столбец" - это столбец, который остается видимым и не изменяется даже при изменении размера таблицы или прокрутке по ней.

Чтобы ответить на ваш вопрос, вы можете зафиксировать левый столбец (то есть первый столбец) путем установки свойства UserFixedCols вашего пользовательского компонента DBGrid TFixedColDBGrid.

Вот пример:

var
  Grid: TFixedColDBGrid;
begin
  Grid := TFixedColDBGrid.Create(nil);
  try
    // Установите количество фиксированных столбцов в 1 (в этом случае, левый столбец)
    Grid.UserFixedCols := 1;
  finally
    Grid.Free;
  end;
end.

В вашем коде вы уже определили свойство UserFixedCols в вашем пользовательском компоненте TFixedColDBGrid. Вы можете установить это свойство, чтобы зафиксировать желаемое количество столбцов.

Например:

var
  MyGrid: TFixedColDBGrid;
begin
  MyGrid := TFixedColDBGrid.Create(nil);
  try
    // Установите количество фиксированных столбцов в 2 (в этом случае, левый и второй столбцы)
    MyGrid.UserFixedCols := 2;
  finally
    MyGrid.Free;
  end;
end.

Таким образом, когда вы создаете экземпляр вашего пользовательского компонента DBGrid и устанавливаете свойство UserFixedCols, указанное количество столбцов будет зафиксировано и останется неизменным даже при изменении размера таблицы или прокрутке по ней.

В статье рассказывается о создании класса TFixedColDBGrid, который позволяет фиксировать левое поле в DBGrid и изменять количество фиксированных столбцов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TDBGrid ::