动态申请控件方面的问题，

Question

怎样在程序中动态申请一个TIamge控件，解决问题后必给分！！Thank you!!!
请写出具体写出源代码!

Answer 1

很简单嘛：   小弟我告诉你：首先：定义一个变量：
var
us_image: TImage;
再在事件上写以下代码：
us_image := Timage.crate(self);
us_image.parent := self;
你可以根据需要再添加控的属性就可以了

Answer 2

uses ExtCtrls;
...
var
  img1: TImage;
begin;
  img1 := TImage.Create(Self);
  try
    with img1 do
    begin
      ...
    end;
  finally
    img1.Free;
  end;
end;

Answer 3

依照下面这个过程，你想要多少TImage控件都行。procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 do begin
    TImage.Create(Self).Name := NamePrefix + IntToStr(i);
    with Tedit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
    end;
  end;

Answer 4

修改一下，
with TImage(Find......