No tabstop in read only cells (TAdvStringGrid)

[Stuart_Clennett]

Hi,

In my TAdvStringGrid, I have a "totals" row and column (right-most col and bottom-most row) that I set as ReadOnly using this code:

grdBedCount.ReadOnly[totalColumnIndex, Pred(grdBedCount.RowCount)] := TRUE;

Is there any way to prevent the user from tabbing into the cells that are readonly?  (I can see skipDisabled and skipFixed)

Thanks

Stuart

stuartclennett@gmail.com

[brunofierens]

Using this on a default grid disallows to tab into column 4 for example:

procedure TForm4.AdvStringGrid1CanEditCell(Sender: TObject; ARow, ACol: Integer;
var CanEdit: Boolean);
begin
CanEdit := ACol < 4;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
advstringgrid1.RandomFill(false,100);
advstringgrid1.Options := advstringgrid1.Options+ [goEditing,goTabs];
end;

[Stuart_Clennett]

Thanks Bruno :)