请教VCL控件的Tag属性的问题？

Question

if Sender is TRadioButton then
    case (Sender as TRadioButton).Tag of
      1: sBarText(0,MSG_0006);//在StatusBar上面显示提示信息
      2: sBarText(0,MSG_0007);
      3: sBarText(0,MSG_0008);
      4: sBarText(0,MSG_0009);
      5: sBarText(0,MSG_0010);
      else
    end;

Answer 1

无意思。就是给你一个存放自己数据的机会。因为该属性是整型的，而指针、接口等实际也都是一些整型值，故你可以用TAG存放各种结构指针、对象、接口等等。

Answer 2

一个附加的属性，可以保存附加的信息（如整数或指针）。
有时你有若干个按钮共用一个处理过程，为了区分不同的按钮，你可以给每个按钮赋以相同或不同的tag值，这样你在你的事件中即可区分它们。  if (Sender as T....).Tag = ...) then .....