怎么在StringGrid中间的其中一个格子加个小图标
如何在StringGrid中间的其中一个格子加个小图标
例如 stringGrid 有9格
1 2 3
4 5 6
7 8a 9
在8a这个格子加个图标或满足条件其中一个格子加上图标 最好有代码,小弟是菜鸟,谢谢
------解决方案--------------------
例如 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 是列位置
}