读书人

怎么在StringGrid中间的其中一个格子加

发布时间: 2012-09-03 09:48:39 作者: rapoo

如何在StringGrid中间的其中一个格子加个小图标
例如 stringGrid 有9格

1 2 3
4 5 6
7 8a 9
在8a这个格子加个图标或满足条件其中一个格子加上图标 最好有代码,小弟是菜鸟,谢谢

[解决办法]

Delphi(Pascal) code
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);var  bitmap: Ticon;begin{在格中显示ICO图标}  bitmap := Ticon.Create;  bitmap.LoadFromFile('c:\Alpha_Ttao.ico');  try    with StringGrid1 do    begin      if not bitmap.Empty then      {---此处调整位置,不对的话自已调整一下吧---}      if   (ACol   =  3)   and   (ARow =3)   then        Canvas.Draw(rect.Left,rect.Top, bitmap);   end;  finally    bitmap.Free;  end;end;{AROW 是行位置ACol 是列位置} 

读书人网 >.NET

热点推荐