Delphi-Help

Главная Статьи TDBGrid DBGrid с FixedCols

DBGrid с FixedCols

Оцените материал
(0 голосов)


DBGrid с FixedCols

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

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

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.

Авторизация



Счетчики