我想像Delphi平台里一样建一个Edit,然后对这个Edit设置,应该如何做?
就像:在Delphi平台里点下Edit,然后他就会自动建立一个Edit1 :Tedit;然后我们在object inspector 里对它进行设置,要的就是这个效果。

解决方案 »

  1.   

    procedure TForm1.Image1EndDrag(Sender, Target: TObject; X, Y: Integer);
    var
      TempEdit:TEdit;
    begin
      if Target is TForm then
      begin
        TempEdit:=TEdit.Create(Form1);
        TempEdit.Name:='Edit'+inttostr(i);//i为全局变量 记录你Edit的个数
        inc(i)
        TempEdit.Parent:=Form1;
        TempEdit.Left:=x;
        TempEdit.Top:=y;
      end;
    end;然后你要建立一个类似object inspector 的窗体!设置属性。
      

  2.   

    只能像楼上那样的,动态生成的控件是没法通过object inspector来实现的,只能通过程序调有相应的属性来实现!