首页 相关文章 [TButton]运行时动态创建和删除按钮

[TButton]运行时动态创建和删除按钮

  新开一个project,然后拖两个Button放在窗体上
  代码如下:
  
  unit Unit1;

  interface

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

  type
   TForm1 = class(TForm)
   btnAddButton: TButton;
   btnDeleteLast: TButton;
   procedure btnAddButtonClick(Sender: TObject);
   procedure btnDeleteLastClick(Sender: TObject);
   private
   { Private declarations }
   procedure CustomButtonClick(Sender: TObject);
   public
   ...[ 查看全文 ]

2016-02-19 标签:

[TButton]运行时动态创建和删除按钮的相关文章

手机页面
收藏网站 回到头部