事件方法必须是类的方法.
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;