如何撰寫同一各BUTTON兩種功能呢 |
答題得分者是:jow
|
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
|
小傑克
資深會員 發表:5 回覆:209 積分:357 註冊:2009-02-16 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
[code delphi] procedure TForm1.FormCreate(Sender: TObject); begin Button1.Caption := '開啟'; Button1.Tag := 0; end; procedure TForm1.Button1Click(Sender: TObject); var B: TButton; begin if Sender is TButton then begin B := TButton(Sender); B.Tag := (B.Tag 1) mod 3; case B.Tag of 0: B.Caption := '開啟'; 1: B.Caption := '暫停'; 2: B.Caption := '關閉'; end; end; end; [/code]
編輯記錄
jow 重新編輯於 2009-05-08 11:42:49, 註解 無‧
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好,
邏輯怪怪的, 我的想法是 : 按開, button 顯示關, 再按一次顯示開 b u t t o n 1 o n c l i c k : if button1.caption ='開' then begin 做 開的事情; button1.caption := '關'; end else begin 做關的事情; button1.caption := '開'; end; 參考一下
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2009-05-08 11:51:09, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |