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

Form不要Enter

答題得分者是:Jasonwong
7-11
一般會員


發表:53
回覆:33
積分:16
註冊:2005-12-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-05-29 16:38:39 IP:220.142.xxx.xxx 訂閱
請問各位我的Form1上有一個Button1,當我按下Button1時會顯示Form2 (Form2.ShowModel;)

當我在Form2上面按下Enter時,Form2則會關閉...我該如何在Form2上面跳過Enter...
Jasonwong
版主


發表:49
回覆:931
積分:581
註冊:2006-10-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-05-29 17:07:29 IP:211.75.xxx.xxx 未訂閱
<textarea class="delphi" rows="10" cols="60" name="code"> Form2.KeyPreview:= True; procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then Key:= 0; end; </textarea>
------
聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心
傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心
syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-05-29 22:01:24 IP:61.64.xxx.xxx 訂閱
在 Form 上顯示 「請不要按下 Enter」?

--------------------------------------------------------
請問這樣解決了你的問題了嗎? KTop MVP <input type="button" name="是" /><br />
****************************************************

以上純屬虛構,如有雷同,請勿#$%^&*(

恩,我想說的其實是,你在 From 2 上,是否有一個 Btn 會傳回 mb_ok 並且是預設焦點?
或是焦點預設在 Close ?

如果不想攔鍵盤,可以試著用這種方式試試看

把焦點換掉
7-11
一般會員


發表:53
回覆:33
積分:16
註冊:2005-12-05

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-05-30 11:58:55 IP:220.142.xxx.xxx 訂閱

===================引 用 Jasonwong 文 章===================
<textarea class="delphi" rows="10" cols="60" name="code">Form2.KeyPreview:= True; procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then ????Key:= 0; end; </textarea>


Form2.KeyPreview := true; 這行要放哪裡
Jasonwong
版主


發表:49
回覆:931
積分:581
註冊:2006-10-27

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-05-30 12:47:31 IP:211.75.xxx.xxx 未訂閱
被你打敗

他是 FORM 的屬性, 在屬性視窗裡找的到, 直接設即可

===================引 用 7-11 文 章===================

Form2.KeyPreview := true;? 這行要放哪裡
------
聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心
傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心
編輯記錄
Jasonwong 重新編輯於 2007-05-30 12:48:02, 註解 無‧
mike0518
一般會員


發表:1
回覆:12
積分:7
註冊:2002-07-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-06-15 17:05:32 IP:60.28.xxx.xxx 訂閱
I think you use a bitbtn and property is bitbtn.ModalResult is mrOK ..
So Form receive the "enter " and Close the Form ....
you should change bitbtn.ModalResult property to mrNone and reserve the bitbtn Icon is "OK"
系統時間:2024-05-02 16:30:02
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!