線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1115
推到 Plurk!
推到 Facebook!

請問buttom按鍵寫入text的語法?

尚未結案
ajing
一般會員


發表:5
回覆:2
積分:1
註冊:2004-04-28

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-04-28 21:59:21 IP:61.221.xxx.xxx 未訂閱
請問大家,如果我有一個form裡面有一些由buttom組成的數字及英文字母鍵盤按鍵,我要寫入什麼語法才可以讓他案下去之後出現在同一頁裡面的text框框裡面? (例如輸入電話或是身分證字號之類的) 謝謝~ ^^
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-04-28 23:02:49 IP:211.20.xxx.xxx 未訂閱
ajing 你好     直接的想法,就是在每Buttom的tag屬性值存入該按鈕所代表的字母的ASCII Code值,如1->49,2->50...A->65....
之後則可讓每個Buttom共用OnClick事件,事件內容如下
Procedure TForm1.Button1Click( Sender: TObject);
Begin
  Edit1.text := Edit1.Text Chr(TButton(Sender).Tag);
End;
Miles
尊榮會員


發表:27
回覆:662
積分:622
註冊:2002-07-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-04-29 16:00:18 IP:218.160.xxx.xxx 未訂閱
Hi ajing 您好: 不曉得你的Button上面的Caption是否有字, 可以直接讀Caption的值 例如:
Procedure TForm1.Button1Click( Sender: TObject);
begin
   Edit1.text := Edit1.Text TButton(Sender).Caption;
end;
我不是高手, 高手是正在銀幕前微笑的人.
------


我不是高手, 高手是正在銀幕前微笑的人.
Ktop_Robot
站務副站長


發表:0
回覆:3511
積分:0
註冊:2007-04-17

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-04-30 13:44:54 IP:000.000.xxx.xxx 未訂閱
提問者您好:


以上回應是否已得到滿意的答覆?


若已得到滿意的答覆,請在一週內結案,否則請在一週內回覆還有什麼未盡事宜,不然,
將由版主(尚無版主之區域將由副站長或站長)自由心證,選擇較合適之解答予以結案處理,
被選上之答題者同樣會有加分獎勵同時發問者將受到扣 1 分的處分。不便之處,請見諒。


有問有答有結案,才能有良性的互動,良好的討論環境需要大家共同維護,感謝您的配合。

------
我是機器人,我不接受簡訊.
系統時間:2024-05-04 5:26:34
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!