我现在在做一个计算器,数字键0-9都是用的button控件,我想当单击任何一个数字键的时候调用同一个函数,使得根据单击不同的数字键,把对应的数字显示在计算器的显示框里,这样就省去了在每个数字键添加一个响应OnClick事件的函数的麻烦,请问怎么办到啊?

if ((Sender as TButton).Caption in ['0'..'9']) then
  edit1.text = (Sender as TButton).Caption;

[此贴子已经被作者于2006-9-9 19:34:34编辑过]