delphi cxgrid 的用法和问题

1、选中一行改变行颜色

procedure TFormMain.gridAllRoomsFocusedRecordChanged(
  Sender: TcxCustomGridTableView; APrevFocusedRecord,
  AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
var
 shows : string;
begin
  if AFocusedRecord = nil then
  exit;

  Sender.Styles.Selection := styskyblue;//TcxStyleRepository控件
  exit;

end;

2、单元个改变颜色

procedure TFormMain.clmnWakeStateCustomDrawCell(Sender: TcxCustomGridTableView;
  ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
  var ADone: Boolean);
var
  stext : string;
begin
  stext := AViewInfo.DisplayValue;//AViewInfo.GridRecord.DisplayTexts[clmnWakeState.Index];

  if stext = '0' then
  begin
    ACanvas.Font.Color := clBlack;
  end;

end;

3、cxgrid表中的值显示成其它的值或字符串

procedure TFormMain.clmnWakeStateGetDisplayText(
  Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
  var AText: string);
begin
  if AText = '1' then
  begin
    AText := '请求成功';
    exit;
  end;

end;

 

3、cxgrid必备属性

          

DataController可以调用很多函数，但本人发现像获得所在行列的操作当行列多的时候会出现问题，DataSource 设置Cxgrid连接表

自动列对齐，不显示Cxgrid上面的空白条，支持排序

绑定数据库，调整对其方式