DBGrid FixedCols Selution

 DBGrid FixedCols Selution

type

  TFixDBGrid = class(TDBGrid)

protected
  function  SelectCell(ACol, ARow: Longint): Boolean; Override;

public

  property FixedCols;

end;
...
...
function TFixDBGrid.SelectCell(ACol, ARow: Longint): Boolean;
Begin
     Result := Inherited SelectCell(ACol, ARow);
     If ACol < FixedCols Then
        Result := False;
End;
...

...

參考轉: https://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/00715.html