zoukankan      html  css  js  c++  java
  • DELPHI 动态 创建和释放 多个 EDIT 控件

    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls;
     
    type
      TForm1 = class(TForm)
        pnl1: TPanel;
        btn1: TButton;
        btn2: TButton;
        procedure btn1Click(Sender: TObject);
        procedure btn2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      Form1: TForm1;
      editm:array of tedit;
     
    implementation
     
    {$R *.dfm}
     
    //动态创建EDIT控件
    procedure TForm1.btn1Click(Sender: TObject);
    var
        i,d,j:integer;
    begin
    d:=0;
    j:=3;
    setlength(editm,j);
      for   i:=0   to   j-1   do
      begin
        editm[i]:=tedit.Create(self);
        editm[i].Parent:=pnl1;
        editm[i].Width:=120;
        editm[i].Height:=20;
        editm[i].Left:=0;
        editm[i].Top:=0+d;
        editm[i].Name:= 'edit'+inttostr(i);
        editm[i].Text:= 'edit'+inttostr(i);
        editm[i].Visible:=true;
        d:=d+20;
      end;
    end;
    //销毁创建的EDIT控件
    procedure TForm1.btn2Click(Sender: TObject);
    var
      i:Integer;
    begin
    for i:=0 to 2 do
    begin
    editm[i].free;
    end;
    end;
     
    end.
  • 相关阅读:
    android签名文件(.keystore)
    server2008部署网狐荣耀遇到的问题
    网关详解
    服务端架构
    rest service下载文件与上传
    mysql 按类别之用一条SQL语句查询出每个班前10名学生数据
    windows mysql 和linux mysql解决乱码问题
    关于redis的安装
    收藏nginx学习
    linux在tomcat中指定jdk
  • 原文地址:https://www.cnblogs.com/chenmfly/p/4550926.html
Copyright © 2011-2022 走看看