各位Delphi的先進: 如果我有一事件如下 procedure TfrmMain.sbtnRnuGame1Click(Sender: TObject); var j:integer; begin if Sender = sbtnRnuGame1 then j:= sbtnRnuGame1.Tag else if Sender = sbtnRnuGame2 then j:= sbtnRnuGame2.Tag else if Sender = sbtnRnuGame3 then j:= sbtnRnuGame3.Tag else if Sender = sbtnRnuGame4 then j:= sbtnRnuGame4.Tag else if Sender = sbtnRnuGame5 then j:= sbtnRnuGame5.Tag else if Sender = sbtnRnuGame6 then j:= sbtnRnuGame6.Tag; end; 要用如何才能用一行就直接使Sender的屬性,如上面的tag屬性, 不要如上面if的寫法,控制項一多程式就不好寫了

若你只使用 Tag : j := TComponent(Sender).Tag 如果要使用 TButton 獨用的特性，可用 X := TButton(Sender).yyyy 這叫 TypeCast ，即是告訴 Compiler 這個 Sender 其實是甚麼來的。