很难吗，数据表中加入图标

Question

怎样往一个数据表中添加4个图标

Answer 1

var
  MyImage1:TImage;
  MyImage2:TImage;
  MyImage3:TImage;
  MyImage4:TImage;MyImage1:=TImage.Create(Self);//检查
MyImage2:=TImage.Create(Self);//没检查
MyImage3:=TImage.Create(Self);//就诊
MyImage4:=TImage.Create(Self);
MyImage1.Picture.Bitmap.LoadFromFile('C:\检查.bmp');
MyImage2.Picture.Bitmap.LoadFromFile('C:\没检查.bmp');
MyImage3.Picture.Bitmap.LoadFromFile('C:\就诊.bmp');
MyImage4.Picture.Bitmap.LoadFromFile('C:\检查.bmp');
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if field.FieldName<>'状态的字段名' then exit;  
  if Field.asstring='检查' then
    dbGrid1.Canvas.Draw(Rect.Left,Rect.Top,MyImage1.Picture.Graphic);
  if Field.asstring='没检查' then
    dbGrid1.Canvas.Draw(Rect.Left,Rect.Top,MyImage2.Picture.Graphic);
  if Field.asstring='就诊' then
    dbGrid1.Canvas.Draw(Rect.Left,Rect.Top,MyImage3.Picture.Graphic);
end;

Answer 2

谢谢帮助，我完全按你的意思去做了一下，并没有在dbgrid种显示出图像来，请指点，谢谢，不管怎样最后都会给你加分