请问:如何让每条记录的各字段值显示在DBGrid的单元格中心?(50分)

H

halen

Unregistered / Unconfirmed
GUEST, unregistred user!
请问:如何让每条记录的各字段值显示在DBGrid的单元格中心?
 
alignment为taCenter(table里面每个字段)
 
DBGrid连接的数据集设置为静态字段,然后设置他们的对齐方式居中就可以了!
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DBgrid1.Canvas.FillRect(Rect);
计算字符高度、宽度,
再计算要输出的Left , Top
DBGrid1.Canvas.TextOut(...)
end;
 
在 DbGrid 相应数据集控件的 AfterOpen 事件中进行事件!!

procedure TForm1.ADOTable1AfterOpen(DataSet: TDataSet);
var
i:integer;
begin
for i:=0 to adotable1.FieldCount -1 do
adotable1.Fields.Alignment:=taCenter;
end;
 
設置DBGird的Colunms---------alignment为taCenter(table里面每个字段)
 
to jsxid:
我在C++ Builder中写这段程序发现,adotable->fields无Alignmeng属性,在
C++ Builder中应该如何用呢?
 
多人接受答案了。
 
顶部