如何删除动态生成的图片（N个）

Question

在ZHIP里面写上
TIAMGE（SENDER）。PICTURE。BITMAP：=NIL；
timage(sender).free;

Answer 1

FORM上动态生成图片什么意思？是画上去的吗！那只要重画就可以了吧还是用TIMAGE控件那只要TIMAGE.PICTURE:=NIL;.至于快捷菜单。
如果TIMAGE，它有POPUPMENU属性。
如果是FORM上画的则在FORM的ONMOUSEMOVE写入当鼠标在IMAGE的位置里移动就POPUPMENU:=ZHIP;否则就为空。

Answer 2

jiaorg(jiaorg) 的方法是错的。在ZHIP弹出菜单的Click事件里面，Sender是TMenuItem类型，而不是TIAMGE可以这样写：// ClearImage1是弹出菜单的一个菜单项
procedure TForm1.ClearImage1Click(Sender: TObject);
begin
  if (Zhip.PopupComponent is TImage) then
  begin
    (Zhip.PopupComponent as TImage).Picture.Bitmap := nil;
    (Zhip.PopupComponent as TImage).Free;
  end;
end;