在編程過程當中,有時我們需要人為地傳遞焦點到下一個Control, 目的方便我們或者是用戶更好的使用,在大量的數據單元輸入或有大量的使用TEDIT( TDBEDIT ) 控件時更是如此。筆者就日常使用的一些方法總結出來,以荀讀者。
從簡單的開始,使用消息傳遞機制:
使用 Delphi 的內部函數 A:
使用 Delphi 的內部函數 B:
使用 Delphi 的內部函數 C:
模擬Virual Basic 的SendKey 事件,建立一個SendKey 方法,有興趣的讀者可以參考Delphi 5 CD 光碟的Info\Sendkey 目錄,裡面有詳細的解釋。
從簡單的開始,使用消息傳遞機制:
- 把焦點傳遞到下一Control: SendMessage(Form1.Handle, WM_NEXTDLGCTL, 0, 0);
- 把焦點傳遞到上一Control: SendMessage(Handle, WM_NEXTDLGCTL, 1, 0);
使用 Delphi 的內部函數 A:
- 把焦點傳遞到下一Control: SelectNext((Sender AS TWinControl),true,false);
- 把焦點傳遞到上一Control: SelectNext((Sender AS TWinControl),false,false);
使用 Delphi 的內部函數 B:
- 把焦點傳遞到下一Control: FocusControl(FindNextControl((Sender AS TWinControl),True,False,false));
- 把焦點傳遞到上一Control: FocusControl(FindNextControl((Sender AS TWinControl),False,False,false));
使用 Delphi 的內部函數 C:
- 把焦點傳遞到下一Control: (FindNextControl((Sender AS TWinControl),True,False,false) As TWinControl).SetFocus;
- 把焦點傳遞到上一Control: (FindNextControl((Sender AS TWinControl),False,False,false) As TWinControl).SetFocus;
模擬Virual Basic 的SendKey 事件,建立一個SendKey 方法,有興趣的讀者可以參考Delphi 5 CD 光碟的Info\Sendkey 目錄,裡面有詳細的解釋。
在使用以上的方法時,由於都沒有考慮到當焦點轉移時的數據變更問題,讀者在實際運用中應加以注意和處理。
文章出處 : 点击打开链接