首页
后端开发
Delphi
Delphi动态创建控件示例

Delphi动态创建控件示例

16 次浏览 0 条评论
rar
rar

以下是一个用于学习的动态创建控件的原程序示例：

case commandstr of
  0: begin
    i1 := i;
    btn[i1] := TButton.Create(Self);
    btn[i1].Parent := form2;
    btn[i1].Visible := false;
    btn[i1].Name := 'btn' + IntToStr(i1);
    btn[i1].Left := Lefta;
    btn[i1].Width := widtha;
    btn[i1].Top := topa;
    btn[i1].Height := heighta;
    btn[i1].Caption := COMCAP;
    btn[i1].Show;
  end;
end;

此代码通过commandstr的值，动态地在form2上创建并设置一个按钮控件。

rar
.rar 预估大小：38个文件
folder
新建文件夹 文件夹
file
Unit8.dfm 5KB
file
Unit2.~ddp 51B
file
Project1.~dpr 345B
file
Unit3.~ddp 51B
file
Unit2.ddp 51B
file
Project1.exe 1.03MB
file
Project1.res 876B
file
Unit4.dcu 17KB
file
Unit3.~pas 5KB
file
Unit1.~dfm 274KB
file
Unit8.ddp 51B
file
normal.mdb 564KB
file
Unit3.~dfm 3KB
file
Unit1.dfm 274KB
file
Unit4.ddp 51B
file
Unit3.ddp 51B
file
Unit2.~pas 4KB
file
Unit3.dfm 3KB
file
Unit1.ddp 51B
file
Project1.cfg 434B
file
Unit4.~ddp 51B
file
Unit4.dfm 7KB
file
Unit4.pas 9KB
file
Unit1.pas 2KB
file
Unit4.~pas 9KB
file
Unit3.dcu 11KB
file
Unit2.~dfm 1KB
file
Unit2.dfm 1KB
file
Unit2.dcu 8KB
file
Unit4.~dfm 7KB
file
Unit2.pas 4KB
file
Unit1.~ddp 51B
file
Project1.dpr 289B
file
Unit8.pas 619B
file
Project1.dof 2KB
file
Unit1.~pas 2KB
file
Unit3.pas 5KB
file
Unit1.dcu 6KB
rar 文件大小：774.65KB