dbgrid中如何在runtime时调整某一列的显示格式

Question

dbgrid.Columns[i].Alignment := [taCenter,taLeftjustify,taRightjustify]

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with dbgrid.Columns[1] do
   begin
     width:=100;
     color:=clScrollBar;
     Font.name='宋体';
     title.align:=taLeftJustify;
     title.caption:='dd';
     ...
     ...
   end;
end;

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with dbgrid.Columns[1] do
   begin
     width:=100;
     color:=clScrollBar;
     Font.name='宋体';
     title.align:=taLeftJustify;
     title.caption:='dd';
     ...
     ...
   end;
end;

Answer 3

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with dbgrid.Columns[1] do
   begin
     width:=100;
     color:=clScrollBar;
     Font.name='宋体';
     title.align:=taLeftJustify;
     title.caption:='dd';
     ...
     ...
   end;
end;

Answer 4

dbgrid.datasource.dataset即Query或Table控件的字段级的
ongettext事件中可以控制呀！
if sender.asfloat=0 then text:=''
else
   beign
   text:=formatfloat('###,###,##.00',sender.asfloat);
   end;

Answer 5

不是对齐，是指format('%14.3f',13.001)这样的格式，因为从sql server 返回的float有时精度为2，有时是3，还有时是1，需要进行统一。

Answer 6

procedure TForm3.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if Field.DisplayName = 'LST_UPDATE_DATE' then
    TDateTimeField(Field).DisplayFormat := 'DD-MMM-YYYY';
end;