Советы по Delphi
DBGrid c 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 |
Cheers [000569]
