Hi,
I have a blank project to which I have added an FNCDataGrid and added the following routine:
procedure TForm4.WebFormShow(Sender: TObject);
var
col:TTMSFNCDataGridColumn;
i:integer;
begin
TMSFNCDataGrid1.BeginUpdate;
TMSFNCDataGrid1.LoadSampleData;
col:=TMSFNCDataGrid1.Columns.Add;
col.ReadOnly:=True;
col.Editor:=getNone;
TMSFNCDataGrid1.AddDataCheckBoxColumn(TMSFNCDataGrid1.Columns.Count-1);
for i:=1 to TMSFNCDataGrid1.RowCount-1 do
begin
TMSFNCDataGrid1.Cells[col.index, i]:=False;
TMSFNCDataGrid1.ControlPositions[col.index, i]:=gcpCenterCenter;
end;
TMSFNCDataGrid1.EndUpdate;
end;
This seems to load as expected, but if I start clicking rapidly on the checkboxes, the following happens:
The checkboxes disappear and an error is produced.
Is this an error or have I done something incorrect?
