DLL把FORM嵌入到EXE中的一个tab中，键盘失效的问题

最新推荐文章于 2024-08-26 21:27:16 发布

原创最新推荐文章于 2024-08-26 21:27:16 发布 · 267 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#dll #form #键盘

Delphi 专栏收录该内容

36 篇文章

订阅专栏

本文介绍了一种解决在Delphi中创建无边框窗口时键盘输入失效的问题的方法。通过调整窗口样式并使用SetParent和MoveWindow函数，确保了全屏无边框窗口能够正确接收键盘输入。

if not Assigned(frmWhFunc) then
frmWhFunc := TfrmWhFunc.Create(Application);
frmWhFunc.ParentWindow:= AppHnd;
frmWhFunc.Align := alClient;
frmWhFunc.BorderStyle:= bsNone;//该句导致键盘失效
frmWhFunc.Show;

修改如下：
if not Assigned(frmWhFunc) then
frmWhFunc := TfrmWhFunc.Create(Application);
frmWhFunc.ParentWindow:= AppHnd;
frmWhFunc.Align := alClient;

frmWhFunc.WindowState := wsMaximized;
SetWindowLong(frmWhFunc.Handle,GWL_STYLE,GetWindowLong(frmWhFunc.Handle,GWL_STYLE) and not (WS_CAPTION or WS_THICKFRAME));//其中WS_CAPTION和WS_THICKFRAME分别表示标题栏和边框
SetParent(frmWhFunc.Handle,AppHnd);//设置主从窗体
MoveWindow(frmWhFunc.Handle, 0,0, frmWhFunc.Width, frmWhFunc.Height, True);//移动窗体位置

frmWhFunc.Show;

AppHnd为exe传入的tab句柄