Question

Delphi 怎么把图片通过Openpicturedialog组件导入到TDrawGrid里面？

如图， 把选中的图片导入到 TDrawGrid里面

Answer 1

首先，你的程序中必须解决多个图片的存储的问题，TDrawGrid它只负责显示，它不负责你的图片的存储。窗体的显示总是在刷新的，如果程序不存储图片，哪怕你能把图片显示出来，窗体一刷新，它就会消失。然后TDrawGrid的DrawCell事件里，根据当前刷新的行、列值，计算该显示第几个图片，在当前单元格的画布上将图片画出来。

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  n: Integer;
begin
  n:=ARow*DrawGrid1.ColCount + ACol +1;
  if n <= Images.Count then
    DrawGrid1.Canvas.Draw(Rect.Left,Rect.Top,TImage(Images.Items[n-1]).Picture.Graphic);
end;
完整代码请下载附件，因为图片类型有多种，代码仅以ICO（32*32像素）为例，实际应用中，如果要显示多种格式的图片，要加上图片类型识别的代码。

追问

谢谢指教， 比如说我要放一张128×32的图片， 让它显示在第一排， 而不是只显示第一个其他的被疲敝应该怎么弄？

追答

不太明白你的意图，像QQ聊天选表情图片那样吗？鼠标到哪个表情图片，那个表情图片就加大？如果仅仅是要显示128×32的图片，把TDrawGrid的默认列宽设成128就行了。

追问

就像你看到我的图一样 ， 一排是10个32×32格子， 然后我选择一张 320×32的图片让它直接显示在第一排， 而不只是显示在第一个格子，其他的都没有显示。

追答

那直接用一个TImage叠加在DrawGrid上不就完了吗? TImage能存储图片，代码还简单。你用TDrawGrid的意图是什么？除了第一排，其他格子做什么用？

追问

是这样的，我们老师让我们做一个推箱子游戏的软件， 用TDrawgrid做一个地图编辑器，在里面可以对图片的属性进行修改，像第一个图一样。   但是要先把图片放进去才行就像你的选择图片那个按钮一样， 把选定的图片放到TDrawgrid中，  因为刚刚学，好多都不知道怎么弄。

追答

你的目的还是说不清楚，“要先把图片放进去才行”，那给你的代码不是可以把图片放进去了吗？你是说选择的图是大图，要用代码把它剪成合适的小块，放到TDrawgrid的各个格子里去吗？

追问

恩， 就是这个意思。

追答