不小心碰到就出开始菜单,不利于输入。
解决方案 »
- 怎么在 dbgrid 中取出某一列的最大值, 不能用SQL语句来做
- 奇怪的select 語句
- 我想做一个可以手动调整控件大小的程序,如让其变长或变宽,主要是针对Shape操作。
- 恭祝 CDSoftwareWj ---伯虎同志新婚快乐 白头到老
- 疑难问题,疑难问题啊!!救救我!
- 联合查询中多加一个字段,求SQL语句!谢谢拉!
- treeview的使用用Onclick?还是onchange呢?(我想点击某一项,打开另个form)
- 这样的界面如何做?
- 打开导入文件内容?
- 笨蛋有急事,想知道:Char和PChar有什么区别啊!如何把PChar转化为Char?
- imagelist怎么非要repaint之后才能画成功呢?
- 菜鸟请教一个简单问题!
type
KBDLLHOOKSTRUCT=record
vkCode:DWORD;
scanCode:DWORD;
flags:DWORD;
time:DWord;
dwExtraInfo:dword;
end;
var
fFlag:BOOL;
p:^KBDLLHOOKSTRUCT;
begin
result:=0;
fFlag := false;
p:=Pointer(LPARAM);
if (ncode=HC_ACTION) then
begin
case wparam of
WM_KEYDOWN,
WM_SYSKEYDOWN,
WM_KEYUP,
WM_SYSKEYUP:
fFlag :=(p.vkCode = VK_Lwin) or (p.vkCode = VK_Rwin)or (p.vkCode = VK_apps);
end;
end;
if fFlag = true then
Result:=1;
if ncode <> 0 then
Result := CallNextHookEX(0,ncode,wparam,lparam);
end;
调用:procedure TForm1.Button1Click(Sender: TObject);
const
WH_KEYBOARD_LL=13;
begin
setwindowshookexw(WH_KEYBOARD_LL,LowlevelKeyboardproc,hinstance,0);
end;
MOD_win ,//要不就是MOD_Windows,记不清了
nil);消息响应函数:procedure WMhotKeyhandel(var msg:Tmessage);message Wm_HotKey;begin if msg.lpararmLo=Mod_win then
.....end;释放敏感健:
unregisterhotkey(handle,GlobalAddAtom(Pchar(UserDefineHotKey))-$C000);
deleteAtom(GlobalAddAtom(Pchar(UserDefineHotKey))-$C000);