关于image自动生成的问题?大家进来看下. ( 积分: 10 )

  • 主题发起人 主题发起人 鬼屋的程序员
  • 开始时间 开始时间

鬼屋的程序员

Unregistered / Unconfirmed
GUEST, unregistred user!
以下是我自动生成image的代码...但是我想让我生成的image出生在panel1上.怎么改呀?

image[image_sum] := TImage.Create(F_electronmap);
image[image_sum].Width := 17;
image[image_sum].Height := 17;
image[image_sum].Left := F_electronmap.AQ_temp.fieldbyname('map_x').AsInteger;
image[image_sum].Top :=F_electronmap.AQ_temp.fieldbyname('map_y').AsInteger;
image[image_sum].Picture.Bitmap := F_electronmap.image1.Picture.Bitmap;;
image[image_sum].Parent := F_electronmap;
image[image_sum].Transparent := true;
 
以下是我自动生成image的代码...但是我想让我生成的image出生在panel1上.怎么改呀?

image[image_sum] := TImage.Create(F_electronmap);
image[image_sum].Width := 17;
image[image_sum].Height := 17;
image[image_sum].Left := F_electronmap.AQ_temp.fieldbyname('map_x').AsInteger;
image[image_sum].Top :=F_electronmap.AQ_temp.fieldbyname('map_y').AsInteger;
image[image_sum].Picture.Bitmap := F_electronmap.image1.Picture.Bitmap;;
image[image_sum].Parent := F_electronmap;
image[image_sum].Transparent := true;
 
我已经自己解决了..但是分数怎么办??555~~~我是穷人家的孩子.....我的十分.
 
image[image_sum] := TImage.Create(F_electronmap);//F_electronmap是什么?这里的参数一般是窗体或者该控件的承载控件!
image[image_sum].Parent := panel1;//Look!!!!!
image[image_sum].Width := 17;
image[image_sum].Height := 17;
image[image_sum].Left := F_electronmap.AQ_temp.fieldbyname('map_x').AsInteger;
image[image_sum].Top :=F_electronmap.AQ_temp.fieldbyname('map_y').AsInteger;
image[image_sum].Picture.Bitmap := F_electronmap.image1.Picture.Bitmap;;

image[image_sum].Transparent := true;
 
谢谢..不过呢..

image[image_sum].Parent := panel1;//Look!!!!! 这一句要放在下面才行..呵呵.

不过也给分了..早点结束吧..
 
后退
顶部