请问如何在窗体重创建自己的快捷键

2002-05-12 08:05:44 142 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

别再只放按钮了！巧用微信小程序‘长按识别’功能，打造无缝加群体验本文深入探讨了微信小程序'长按识别'功能在社群运营中的创新应用，通过简化加群流程至一步操作，显著提升用户转化率。文章详细解析了技术实现细节、UI/UX设计策略，并对比了与企业微信API的适用场景，为开发者提供打造无缝加群体验的完整解决方案。阅读详情

我要做一个非可视控件,要求能够相应他所在的Form的F12键的按下事件,然后弹出一个对话框.

怎么实现这个控件?需要拦截那些事件?或者是要注册AccelerateTable?

...全文

疑难问题（二）——PyTorch 2.3.0 ‘import torch‘ 错误排查：深入解析‘shm.dll‘加载失败与系统路径修复本文深入解析了在Windows系统上安装PyTorch 2.3.0后，执行'import torch'时遇到的'shm.dll'加载失败错误（OSError）。该问题通常源于系统DLL搜索路径缺失，导致无法找到关键的共享内存通信组件或其依赖项。文章提供了核心解决方案：通过手动修改PyTorch的`__init__.py`文件，将用户基目录下的Library\bin路径添加到DLL搜索列表中，从而从根本上修复此导入错误，并给出了详细的修改步骤和验证方法。阅读详情

数字蛋糕

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

数字蛋糕 2002-05-25

打赏
举报

至于怎么创建非可视控件的消息循环,大家可以看看Timer的源代码就明白了.
很简单的.

数字蛋糕 2002-05-25

打赏
举报

原先我也是使用你说的方法,可是如果在控件中的话,必须要将窗体子类化以截取WM_HOTKEY消息.作为控件来说这样一来问题就多多.

后来我找到了一个方法(说实在的很下流):
思路也是使用RegHotKey,可是他在构造函数中创建了一个自己的窗口句柄而不是使用父窗体的句柄.

不过还是谢谢你,分数奉上

black_fox 2002-05-20

打赏
举报

如果你是要对控件操作。思路基本上差不多。但是你要接管其Parent的消息泵。来响应WM_HOTKEY消息，
另：RegisterHotKey和UNRegisterHotKey的句柄也应该是其Parent的。

应该还有其它的一些办法。但我一时想不出。。呵呵

black_fox 2002-05-20

打赏
举报

Private
PROCEDURE Hotshortcut(VAR message: TMessage); message WM_HOTKEY;

VAR
FrmMain : TFrmMain;
Showkey : tshortcut;
ShowKeyID: integer;

PROCEDURE TFrmMain.FormCreate(Sender: TObject);
BEGIN
ShowKey:=16472;//此处为F12的值
ShowKeyID:= RegisterKey(Showkey);
END;

PROCEDURE TFrmMain.FormDestroy(Sender: TObject);
BEGIN
UnRegisterKey(ShowKeyID);
END;

PROCEDURE TFrmMain.Hotshortcut(VAR message: TMessage);
BEGIN
IF Self.visable then
hide
else
show;
END;

{************************************************
函数：UnRegisterKey
功能：反注册全局热键
输入：Atom数据
输出：成功为TRUE,失败返回False
作者：BlackFox
日期：2002/5/10
************************************************}
FUNCTION UnRegisterKey(VAR id: integer): boolean;
BEGIN
result := UnRegisterHotKey(handle, id);
DeleteAtom(id);
id := 0;

END;

{************************************************
函数：RegisterKey
功能：注册全局热键
输入：Key:要注册的热键
输出：返回一个Atom数据,失败返回0
作者：BlackFox
日期：2002/5/10
************************************************}

FUNCTION RegisterKey(key: Tshortcut): integer;
VAR
TheKey : Word;
TheShiftState : TShiftState;
state : uint;
BEGIN
Result := GlobalAddAtom(pchar(Format('Fox%d', [key])));
IF result = 0 THEN
exit;
state := 0;
ShortCutToKey(key, TheKey, TheShiftState);
IF ssShift IN TheShiftState THEN
state := state OR mod_shift;
IF ssalt IN theshiftstate THEN
state := state OR mod_alt;
IF ssctrl IN theshiftstate THEN
state := state OR MOD_CONTROL;
RegisterHotKey(handle, Result, state, thekey);

END;

wzrlover 2002-05-20

打赏
举报

RegisterHotKey（不知道有没有写错)注册一个热键试试

数字蛋糕 2002-05-20

打赏
举报

为什么我最近提出的许多问题都没有人回答?
不会真的这么难吧.

请问如何在窗体重创建自己的快捷键

相关推荐