stringgrid 控件里得文字 都是左排列 如何居中呢？(200分)

B

benjiam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-17

• #1

stringgrid 控件里得文字 都是左排列 如何居中呢？

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-17

• #2

使用ADVStringGrid就行了.dxTreeList更好.
都可以到www.51delphi.com下载的.

 

B

benjiam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-17

• #3

我现在已经做到快完工了 再改？ 这怎么可以呢

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-17

• #4

StringGrid就只能左排列

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-17

• #5

[]

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-17

• #6

在StringGrid的OnDrawCell 里处理，下面的代码不但水平居中，还垂直居中
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
s:string;
r:TRect;
begin
with StringGrid1 do
begin
Canvas.FillRect(Rect);
s:=Cells[ACol,ARow];
r:=Rect;
DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER);
end;
end;
注意StringGrid的DefaultDrawing属性为True,否则你得自己决定Canvas 的字体颜色，大小等信息，比较麻烦

 

Z

ztaif

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-01

• #7

楼上这个方法好，用DrawText

怎么让Editing 时也居右 ？

 

H

hardware007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-01

• #8

改控件

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-01

• #9

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
StringGrid1.Canvas.FillRect(Rect);
DrawText(StringGrid1.Canvas.Handle,
pChar(StringGrid1.Cells[ACol,ARow]),
Length(StringGrid1.Cells[ACol,ARow]),
Rect, // 包含文字的矩形
DT_center or // 水平居中
DT_SINGLELINE or // 不折行
DT_VCENTER) // 垂直居中
end

 

T

tianshi309

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-01

• #10

同意楼上说的。