如何才能够让StringGrid里边的数据居中显示？

xiaoer123 2003-11-20 04:03:54

如何才能够让StringGrid里边的数据居中显示？

...全文

44 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

jbz 2004-02-12

打赏
举报

回复

mark

神医CL 2003-11-21

打赏
举报

回复

其实你真的应该查找一下，肯定有的

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
//if(ARow>0 && ACol>0) //居中显示
{
StringGrid1->Canvas->FillRect(Rect);
DrawText(StringGrid1->Canvas->Handle,StringGrid1->Cells[ACol][ARow].c_str(),-1,(RECT*)&Rect,DT_SINGLELINE | DT_VCENTER |DT_CENTER);
}
}

glpk 2003-11-20

打赏
举报

回复

请参考 http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=663
Q : 怎样在TStringGrid中实现列的居中，靠右对齐？
其中 DrawText(...)参考bcb help的windows sdk

CCLIS 2003-11-20

打赏
举报

回复

自己DRAWCELL，在输出时用CANVAS来居中显示。

ydx 2003-11-20

打赏
举报

回复

你搜一下，stringgrid然后找吧，我以前看到过，好象很麻烦

xiaoer123 2003-11-20

打赏
举报

回复

没人会嘛？

delphi，stringGrid选中显示对号，否则不显示，并居中（测试成功）

Delphi StringGrid文字居中 Title文字变大，字体颜色改变，选中行颜色的改变在Cell中添加CheckBox控件点击实现CheckBox Checked true false

在StringGrid控件中实现显示Excel形式的合并单元格效果，也可以用AdvStringGrid，XLGRID等第三方控件，不过要破解比较麻烦。原理是通过重载 OnDrawCell 事件procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);来实现重新显示改变设计好的格式效果...

delphi7 下已经调试通过，将stringgird数据保存为csv格式，同时将csv格式文件导入stringgird；比保存为excel格式快了很多，而且导入时间也是非常快。

Delphi将Stringgrid指定行添加到Memo控件中，选中StringGrid中的行，点击右下角的“添加”按钮，即可将选中的StringGrid行数据添加到下边的Memo控件中显示。部分源代码如下：　　procedure TForm1.FormCreate(Sender: TObject); 　　begin 　　 StringGrid1.Cells[0,0] := '商品编号'; 　　 StringGrid1.Cells[0,1] := 'cc10011'; 　　 StringGrid1.Cells[0,2] := 'cc10012'; 　　 StringGrid1.Cells[0,3] := 'cc10013'; 　　 StringGrid1.Cells[0,4] := 'cc10014'; 　　 StringGrid1.Cells[1,0] := '商品名称'; 　　 StringGrid1.Cells[1,1] := '苹果'; 　　 StringGrid1.Cells[1,2] := '香蕉'; 　　 StringGrid1.Cells[1,3] := '西红柿'; 　　 StringGrid1.Cells[1,4] := '西瓜'; 　　 StringGrid1.Cells[2,0] := '商品数量'; 　　 StringGrid1.Cells[2,1] := '200'; 　　 StringGrid1.Cells[2,2] := '150'; 　　 StringGrid1.Cells[2,3] := '300'; 　　 StringGrid1.Cells[2,4] := '130'; 　　 StringGrid1.Cells[3,0] := '商品金额'; 　　 StringGrid1.Cells[3,1] := '$5.00'; 　　 StringGrid1.Cells[3,2] := '$4.50'; 　　 StringGrid1.Cells[3,3] := '$1.50'; 　　 StringGrid1.Cells[3,4] := '$6.00'; 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i,col,row: Integer; 　　begin 　　 row := StringGrid1.Row; 　　 for col := 0 to StringGrid1.ColCount - 1 do 　　 Memo1.Lines.Add(StringGrid1.Cells[col,row]); 　　end;

13,825

社区成员

102,679

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章