procedure TForm2.SelectCell(Sender: TObject; ACol, ARow: Longint; var CanSelect: Boolean);
begin
CanSelect := (Acol = 2);
end;
и так
procedure TForm2.SelectCell(Sender: TObject; ACol, ARow: Longint; var CanSelect: Boolean);
begin
CanSelect := (Acol <> 2);
end;
всё равно выделяет...