procedure TForm_BaseMDI.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SendMessage(Handle, 48384, 9, 0);
end;
end;
且Form.Keypreview 属性值= true;
delphi发送焦点移动消息的函数及参数
最新推荐文章于 2024-06-21 15:15:23 发布
本文介绍了一个关于MDI窗体中如何处理Enter键事件的示例代码。通过重写 TForm_BaseMDI 的 FormKeyPress 方法，并设置 Form.Keypreview 属性为 true，可以实现当用户按下 Enter 键时触发特定操作。
扫一扫
256
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
