cxgrid勾选框问题

首先设置勾选列

 

 

/// <summary>
/// TcxGridDBTableView 勾选事件
/// </summary>
/// <param name="tbview">TcxGridDBTableView</param>
procedure CheckcxgGrid(tbview: TcxGridDBTableView);
var
rowIndex: Integer;
begin
rowIndex := tbview.Controller.FocusedRowIndex;
try
if tbview.ViewData.Records[rowIndex].Values[0] = '0' then
tbview.ViewData.Records[rowIndex].Values[0] := '1'
else if tbview.ViewData.Records[rowIndex].Values[0] = '1' then
tbview.ViewData.Records[rowIndex].Values[0] := '0'
except
on E: Exception do
begin
ShowMessage(E.Message);
end;
end;
end;

 

 

// Mouseup事件

procedure TForm2.cxgViewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
cxgridViewChecked(cxgView);
end;