怎样在stringgrid的cell中放入图片？

Question

同标题，怎样在stringgrid的cell中放入图片？

Answer 1

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ACol < 1 then
    TStringGrid(Sender).Canvas.Draw(Rect.Left, Rect.Top, Application.Icon);
end;
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————