当前位置：首页 → 问答吧 → 好久没用Delphi了。自动生成控件。这个怎么弄。

好久没用Delphi了。自动生成控件。这个怎么弄。

时间：2011-11-15

来源：互联网

Delphi(Pascal) code


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ledit_name:array[1..200] of TLabeledEdit; //名称
  //ledit_left:array[1..200] of TLabeledEdit;//左边坐标
  //ledit_right:array[1..200] of TLabeledEdit;//右边坐标
  i:integer=0;
implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
var l:integer;
begin
  if i=200 then
    exit;
  i:=i+1;  
  l:=30;  //左边
  ledit_name[i]:=TLabeledEdit.Create(nil);  //生成控件LabeledEdit
  with ledit_name[i] do  //设置控件
  begin
    LabelPosition:=lpLeft; //设置LABEL在左边
    EditLabel.Caption:=inputbox('请输入','元素名称','');
      if i=1 then
      begin
        Top:=10;
        Left:=l;
      end else begin //设置LabeledEdit控件的位置
        Top:=(10+Width)*i;
        Left:=l;
      end;
  end;
end; 
//没有任务错误提示。。。