事件方法必须是类的方法.
    type
    //qzf 使用gettext变成*
    TEventHandlers = class { 建一个虚拟类}
    procedure GetText(Sender: TField; var Text: String; DisplayText: Boolean);
    end;
    implementation
    procedure TEventHandlers.GetText(Sender: TField; var Text: String;
    DisplayText: Boolean);
    begin
    Text := ‘    ‘;
    end;
    procedure HideCb(tv :TcxGridDBTableView);
    var
    i: integer;
    sl: TStringList;
    EvHandler:TEventHandlers;
    begin
    if(not Frm_main.Act_productlookcb.Enabled) then
    try
    sl := TStringList.Create;
    sl.CommaText := ‘平均价,成本价,成本金额,利润’;
    with tv do
    for i := 0 to ColumnCount - 1 do
    begin
    if (sl.IndexOf(Columns[i].Caption) >= 0) then
    begin
    tv.DataController.DataSet.FieldByName(Columns[i].DataBinding.FieldName).OnGetText := EvHandler.gettext;
    Columns[i].Summary.FooterFormat := ‘*‘;
    end;
    end;
    finally
    sl.free;
    end;
    // try
    // sl := TStringList.Create;
    // sl.CommaText := ‘平均价,成本价,成本金额,利润’;
    //
    // with tv do
    // for i := 0 to ColumnCount - 1 do
    // begin
    // if (sl.IndexOf(Columns[i].Caption) >= 0) then
    // Columns[i].Visible := false;
    // end;
    // finally
    // sl.free;
    // end;
    end;
    //调用
    HideCb(gridview_productstocksearch);
    Act_search.Execute;