DELPHI多个按钮的click事件问题

比如 你在动态创建的时候 加上 btns[I].tag:=i

Sender 就能 判断

if TButton(Sender).tag = 0 then

就说点击是你动态创建的按钮里面的第一个按钮

按下 NEW的 时候，将NEW按钮的Visible属性设置为false就看不到NEW按钮了。同时，在NEW按钮的背后放置两个按钮：撤销和保存。

至于如何在NEW按钮的背后放置两个按钮？ 只要右击这两个按钮，选择“Control/Send to Back” 就行了。

procedure TForm1.CreateButton

var

button: TButton //定义

begin

button := TButton.Create(Self) //创建控件关键的一句（参数为self的时候不需要释放内存）

button.Parent := Self //此行必须要，不然不能显示在Form1上面

button.Left := 30

button.Top := 30

end

---