如何动态的在FORM上增加一个TImage控件？？？

Question

能实现吗？？
my_image:=timage.create;
my_image.parent:=my_form;
my_image.show;
位置你自己找吧，好象用GETCURSORPOS吧，对不起，记不清了。
第二个问题，不懂，要用流吧，但是能实现吗？？

Answer 1

var
    pointxy  : TPoint;
    my_image:TImage;
begin
    my_image:=timage.create(self);
    my_image.parent:=my_form;
    getcursorpos(pointxy);
    my_image.left:=pointxy.x;    
    my_image.top:=pointxy.y;    
    my_image.show;
    
end;

Answer 2

第二个问题,可以用注册标,或ini文件记录下image的相关属性,下次启动时再从中读取,再动态创建.

Answer 3

第二个问题,可以用注册标,或ini文件记录下image的相关属性,下次启动时再从中读取,再动态创建.