全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1806
推到 Plurk!
推到 Facebook!

如何 call OnKeyDown()

尚未結案
zzz
一般會員


發表:7
回覆:6
積分:2
註冊:2003-04-24

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-05-08 13:42:44 IP:220.134.xxx.xxx 訂閱
我有一個元件 (cxTextEdit1) , 我想在它進入時先模擬使用者按下鍵盤 Home 的按鈕,
所以我在元件的 OnEditing 的事件中, 去 call OnKeyDown(), 我的寫法是...

cxTextEdit1.OnKeyDown(self,36,?????);

請問最後一個參數我要傳什麼呀? 我該怎麼 call onkeydown?
謝謝!

Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-05-08 15:17:10 IP:59.124.xxx.xxx 未訂閱
cxTextEdit 不知是否可用? <textarea class="delphi" rows="10" cols="60" name="code"> procedure TForm1.Edit2Enter(Sender: TObject); begin TEdit(Sender).SelStart := 0; TEdit(Sender).SelLength := 0; end; </textarea>
------
Fishman
zzz
一般會員


發表:7
回覆:6
積分:2
註冊:2003-04-24

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-05-09 08:49:22 IP:220.134.xxx.xxx 訂閱
感謝 Fishman 兄, 我試您的方式了.. 可是沒有效果!
speedup
資深會員


發表:19
回覆:259
積分:280
註冊:2003-07-04

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-05-09 11:28:15 IP:60.248.xxx.xxx 訂閱
procedure TForm1.cxTextEdit2Enter(Sender: TObject); begin TcxTextEdit(Sender).SelStart := 0; TcxTextEdit(Sender).SelLength := 0; end;

用fishman的方法即可 不過要記的把properties.AutoSelect 設成 false
------
唉~
系統時間:2024-05-16 23:15:31
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!