Zitat von
Stevie:
TStringGrid(DbGrid1).FixedCols := 4;
Implementiert ist FixedCols in TCustomGrid.
Delphi-Quellcode:
TCustomGrid = class(TCustomControl)
...
protected
property FixedCols: Integer read FFixedCols write SetFixedCols default 1;
...
Du kannst also ein eigenes DBGrid ableiten und diese Eigenschaft sichtbar machen:
(getestet habe ich es nicht)
Delphi-Quellcode:
unit myDBGrid;
interface
uses
SysUtils, Classes, Controls, Grids, DBGrids;
type
TmyDBGrid =
class(TDBGrid)
private
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
published
{ Published-Deklarationen }
property FixedCols;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Beispiele', [TmyDBGrid]);
end;
end.