如何调用DBGridEh1DrawColumnCell
procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
inherited;
If (DataCol<>0) and (Not Column.Field.IsNull) then
begin
If Column.Field.AsString = '0' then //或其它判断条件
DBGrideh1.Canvas.FillRect(Rect);
end;
end;
如何在另一个procedure中调用上述的过程,我试过很方式,总是说参数不对,怎么指定参数,还需要定义参数吗?