cxGrid使用汇总

Posted 2020-10-17

1、自动行高：CellAutoHeight（单元自动高度）设置为True.

procedure <AForm>.<AGridColumn>PropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
  AColumn: TcxGridDBColumn;
  AColIndex: Integer;
begin
  AColumn := <AcxGridDBTableView>.GetColumnByFieldName(<Field Name>);
  AColIndex := AColumn.Index;
  ...
end;

procedure TForm_Sales.col_Reg_Price_UnitPropertiesEditValueChanged(
  Sender: TObject);
var Edit : TcxCustomEdit;
    c_Now,
    c_Was : currency;
    i_Rate : integer;
begin
  Edit := Sender as TcxCustomEdit;

  if (Edit <> nil) and
     (Table_Reg.FieldByName(GD_Tab_Sales_Items_Quan).AsFloat > 0) then
    begin
      c_Now := Edit.EditingValue;
      c_Was := Table_Reg.FieldByName(GD_Tab_Sales_Items_Retail_Unit).AsCurrency;
      i_Rate := 100 - trunc(100 * (c_Now / c_Was));

      if (i_Rate > Info_Clerk.Discount_Max) then
        begin
          tv_Reg.DataController.SetEditValue(col_Reg_Price_Unit.Index,
                                             Table_Reg.FieldByName(GD_Tab_Sales_Items_Price_Unit).AsCurrency,
                                             evsValue);
          ShowMessage(‘The requested discount of ‘ + IntToStr(i_rate) + ‘% exceeds the allowed maximum clerk discount of ‘ + IntToStr(Info_Clerk.Discount_Max) + ‘%.‘);
        end;
    end;
end;

 

procedure TForm1.cxDateEdit1PropertiesValidate(Sender: TObject;

  var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);

begin

  if DisplayValue = ‘TEST‘ then

  begin

    DisplayValue := ‘01/01/2004‘;

    Error := False;

  end;

end;