在程序内
 实现动态添加edit控件及对实现移动其到界面指定的位置。
就像DELPHI自身那像添加控件。

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
    Edit:Tedit;
    begin
    Edit := TEdit.Create(Form1);
          with Edit do
          begin
            Parent := Form1;
            Left := Form1.Left+100;
            Top := Form1.top+100;
            Width := 100;
          end;
    end;
      

  2.   

    jabcf(小金呀) 的办法完全可行,
    呵呵
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    var Edt:TEdit ;
    begin
    Edt:=TEdit.Create(self);
    Edt.Parent := Form1; //所属区
    Edt.Left := 200 ;
    Edt.Top := 12 ;
    Edt.Visible := true ;
    end;
      

  4.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
    Edit:Tedit;
    begin
    Edit := TEdit.Create(Form1);
          with Edit do
          begin
            Parent := Form1;
            Left := Form1.Left+100;//设置Edit的左边位置
            Top := Form1.top+100;//设置Edit的高度位置
            Width := 100;
          end;
    end;
      

  5.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls;type
      TForm1 = class(TForm)
        Button1: TButton;                                 //界面放个按钮
        procedure Button1Click(Sender: TObject);          //添加这个事件
      private
        { Private declarations }
        procedure MyEditMouseDown(Sender: TObject; Button: TMouseButton;
                  Shift: TShiftState; X, Y: Integer);         //声明事件
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
    var
      Edit:TEdit;
    begin
      Edit := TEdit.Create(Form1);
      with Edit do
      begin
        Parent := Form1;
        Left := Form1.Left+100;
        Top := Form1.top+100;
        OnMouseDown := MyEditMouseDown; //赋值事件
      end;
    end;
    procedure TForm1.MyEditMouseDown(Sender: TObject; Button: TMouseButton;          //实现事件
      Shift: TShiftState; X, Y: Integer);
    const SC_DRAGMOVE:longint=$f012;                     //声明消息
    begin
        ReleaseCapture;
        sendmessage(TEdit(Sender).Handle,wm_syscommand, SC_DRAGMOVE, 0);    //鼠标按下拖动就可以移动
    end;end.
      

  6.   


    procedure tform1.createedit(x:integer;y:integer;w:integer;h:integer);
    var
    edit:tedit;
    begin
    Edit := TEdit.Create(Form1);
          with Edit do
          begin
            Parent := Form1;
            setbound(x,y,w,h);
          end;
    end;
      

  7.   

    现在完全可以实现了,能不能保留添加的EDIT啊,程序再次运行时,可以显示上次的结果。
      

  8.   

    呵呵,如果还要保留添加的Edit的话,那为什么不在设计时添加呢
      

  9.   

    那得自己写程序记录起来,存进数据库或写配置文件,再打开程序时根据配置重新添加edit组件