例如 stringGrid 有9格 1 2 3
4 5 6
7 8a 9
在8a这个格子加个图标或满足条件其中一个格子加上图标 最好有代码,小弟是菜鸟,谢谢
4 5 6
7 8a 9
在8a这个格子加个图标或满足条件其中一个格子加上图标 最好有代码,小弟是菜鸟,谢谢
解决方案 »
- 为什么把方法写在单独单元里就找不到类
- 请教有关FOR里面的IF语句错误
- 请各位高手帮忙一个小问题。
- 身在北京,找份兼职 !过往的老板 有小活可以找我,那位兄弟代码忙不过来也可以联系我!!
- 我要在服务器上装一防火墙,限制LAN中的其它机器使用网络,比如:不允许上QQ,只允许WEB浏览等等?
- Delphi写的DLL在VC中可以调用吗,如何调用?
- 怎么通过postmessage的WParam,LParam发送指针()?
- 如何在delphi中把图像导入excel中?
- 招聘Delphi 兼职程序员
- 请问如何通过table控件往数据表里添加数据
- delphi+ACCESS 问题
- d7连接oracle 10G,莫名异常
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 是列位置}