procedure TFrmMain.GrdBillDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if Column.Field.FieldName='字段名' then
begin
GrdBill.Canvas.TextOut(Rect.left+2,Rect.top+2,
FormatDateTime('YYYY-MM-DD hh:nn:ss',Column.field.asdatetime));
end
else
GrdBill.DefaultDrawColumnCell(Rect,datacol,column,State);
end;