关于按扭的简单问题

Question

在一个窗体上有n个button按扭，这些按扭单击要执行一样的代码，该怎么做？

Answer 1

所有的ONCLIKE事件调用同一个过程。

Answer 2

先写一个按钮的事件代码
比如：procedure TForm1.OnButton1Click(Sender: TObject)
begin
    ShowMessage('Hi');
end;然后，选择所有其它按钮的OnClick事件为Button1.Click

Answer 3

Onclick事件指向同一个过程...最好把button的名称出现的地方用sender代替

Answer 4

我的意思是不让在代码里出现那么多的Button.click过程！只用程序来实现这么多的过程

Answer 5

1、所有的ONCLIKE事件调用同一个过程。
2、你的想法很好，不过好象不行啊

Answer 6

写一个过程procedure MyBtnClick(Sender: TObject);
然后在窗口show的时候把所有的button的OnClick:=MyBtnClick;
就ok 了