我想在窗体中动态生成并显示1个TImage,但没有成功!在Form1的Create中加入一下代码:
begin
Image1:=TImage.Create(self);
:
//设置Image1的属性;
:
form1.update;
end;这段代码能够通过编译,但没有我想要的结果!!!!!

解决方案 »

  1.   

    Image1 := TImage.Create(self);
     Image1.top := 10;
     Image1.left := 10;
     Image1.Width := 100;
     Image1.Henght := 50;
     Image1.Parent := Form1;
     Image1.Visible := True;
      

  2.   

    begin
    Image1:=TImage.Create(self);
    image1.parent:=self;
    :
    //设置Image1的属性;
    :
    end;
      

  3.   

    var 
       MyB: TEdit; 
    begin 
       MyB:=TEdit.Create(Self); 
       MyB.Parent:=Form1; 
       MyB.Left:=20; 
       MyB.Top:=10; 
       MyB.OnClick:=MyOnClick;//MyOnClick 响应事件的过程 
       MyB.Show; 
    end; 
    使用完毕后,释放分配的资源 
    if Assigned(Edit1) then Edit1.Free;
      

  4.   

    哇,就结贴了啊~
    可惜,对于动态创建问题,关键两点:
    1。设置parent属性
    2。释放内存(但是这儿我现在都还是不明白)