OnExit裡條件不符,下SetFocus造成離不開 |
答題得分者是:andychang1690
|
Sei
一般會員 發表:22 回覆:38 積分:17 註冊:2002-05-22 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
Sei
一般會員 發表:22 回覆:38 積分:17 註冊:2002-05-22 發送簡訊給我 |
是類似卡號之類的不能為空值,由於一開始佈的不是DBEdit,而且在離開Edit時必需即時告知使用者不能為空值,就是這樣在麻煩
引言: 在 OnExit 裡下 SetFocus 其它 TWinControl 就沒法得到 Focus 不知您要做的事是如何? 如果是資料庫的存檔的話, 有個 BeforePost Event 可用 在該 Event 中如果檢查該 TEdit.Text 為空字串 ShowMessage 警告後, 再下 Abort 指令中止後續動作 -- 歡迎光臨 KTop 研究院! |
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
引言: 是類似卡號之類的不能為空值,由於一開始佈的不是DBEdit,而且在離開Edit時必需即時告知使用者不能為空值,就是這樣在麻煩是資料庫的話, 不是 TDBEdit 也沒關係啊 假設您是用 Query1 來做的話 就在 Query1 的 BeforePost Event 中做檢查即可,例: procedure TForm1.Query1BeforePost(DataSet: TDataSet); begin // ... if Edit1.Text = '' then Abort; // ... end;-- 歡迎光臨 KTop 研究院! |
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
引言: 是這樣的,我有一個Edit,不管是用滑鼠離開或是用鍵盤按enter(tab)離開,,如果空白就ShowMessage警告並SetFocus該Edit讓使用者填值,可是這樣會造成不管按Button或其它Edit都離不開,不知是否有前輩有更好的方法,可以check該Edit空值? 在站裡用「onExit Setfocus」找不到解決方案,也大概查了一下「OnActiveControlChange 」,似乎都不太理想,希望前輩們幫幫忙,謝謝!!你可以在 onexit 中加一句, 然後只要按下 button1(例如放棄動作)就可以跳開了 if ActiveControl=Button1 then exit else begin // 你的判斷 end; |
andychang1690
資深會員 發表:20 回覆:694 積分:442 註冊:2003-03-14 發送簡訊給我 |
引言: 是這樣的,我有一個Edit,不管是用滑鼠離開或是用鍵盤按enter(tab)離開,,如果空白就ShowMessage警告並SetFocus該Edit讓使用者填值,可是這樣會造成不管按Button或其它Edit都離不開,不知是否有前輩有更好的方法,可以check該Edit空值? 在站裡用「onExit Setfocus」找不到解決方案,也大概查了一下「OnActiveControlChange 」,似乎都不太理想,希望前輩們幫幫忙,謝謝!!Sei:我提供一個我寫BarCode系統時的經驗,在線上掃瞄時Edit1一定要有資料 驗證並不得為空白!但使用者一樣有時要跳出來做其他工作。 我利用OnKeyPress事件先於OnExit觸發所以我定義一char Key_Press, 於OnKeyPress事件中Key_Press=Key,接著於OnExit先判斷是否我規定的脫離鍵 ,我個人定義是Esc鍵,如是我SetFocus於它處並Return; 以上請參考! Andy Chang
------
Andy Chang |
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
|
Sei
一般會員 發表:22 回覆:38 積分:17 註冊:2002-05-22 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |