小弟刚刚接触  DELPHI   都是不懂  向各位大哥  大姐  讨教一个问题

delphi 如何实现禁用键盘

打开窗体后 最大 全屏 程序始终在前面显示 然后禁止使用键盘 点击按钮后 解除 键盘的锁定
这个该如何实现啊 ???

小弟在此谢谢了!!

------
我就是我!我的生活我主宰!

加一個Low level的Keyboard的Hook
[code delphi]
KBLLHook:=SetWindowsHookEx(WH_KEYBOARD_LL, @KeyboardLLHookProc, HInstance, 0) ;
[/code]
其中KeyboardLLHookProc格式如下
[code delphi]
function KeyboardLLHookProc(Code: Integer; wParam: Word; lParam: LongInt): LongInt; stdcall；
[/code]
內容大致如下
[code delphi]
if (CODE=HC_ACTION) then
if Eatkey
then result:=1
else result:=CallNextHookEx(KBLLHook,code,wParam,lParam);
[/code]

您好,
我試了另一個方法, 請參考一下

form1 的 keypreview 設為 true;
checkbox1 打勾代表解禁.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if not checkbox1.Checked then key := #0;
end;

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

keypreview對方向鍵和tab無效，更不用說ctrl-alt-del這種暴力組合鍵

提問者您好:


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


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


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

------
我是機器人,我不接受簡訊.