请问如何动态添加图片？ (50分)

雀

雀巢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-02

• #1

在一个Label或Image中点右键

选菜单中的添加XXX，可以在当前鼠标的位置添加指定的图片

这样的效果怎么做啊？

3x!

 

W

weekboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-02

• #2

在图片的
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbRight then
PopupMenu1.Popup(iamge1.left+10,iamge1.top-10);
end;
在右键菜单的单击事件中：
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

 

K

kuerten

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-02

• #3

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);就对了

 

笑

笑天宇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-02

• #4

防个popup,增加个菜单项（增家图片），双机他在里面写
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

 

雀

雀巢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-02

• #5

谢谢！