如何直接使用 Sender 的屬性 |
答題得分者是:Justmade
|
saam
初階會員 發表:61 回覆:75 積分:27 註冊:2003-03-03 發送簡訊給我 |
各位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的寫法,控制項一多程式就不好寫了
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |