怎样在delphi的click中加自定义参数

在onclick 事宜里面 把sender对象转换成组件的基类 (TComponent(Sender).Tag) 掏出 Tag 属性值再来进行断定是那个操作.

答案：

procedure TForm1.btnClick(Sender: TObject);
begin
  case TButton(Sender).Tag of
  0: ShowMessage(IntToStr(0));
  1: ShowMessage(IntToStr(1));
  end;
end;

上一个：delphi怎么修改access数据库里的内容?
下一个：delphi界面怎么设置像QQ一样自动隐藏