如何在一个非主窗口最小化前执行一段代码

wlyx2003 2003-10-25 10:32:41
我想在一个非主窗口最小化前执行一段代码,而且主窗口与非主窗口不是父子关系
该如何实现呢。如果是主窗口的话可以用Application.OnMinimize,非主窗口该如何解决这个问题呢?
...全文
38 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
ly_liuyang 2003-10-27
  • 打赏
  • 举报
回复
上文的消息处理就可以了
xiaoyuer0851 2003-10-27
  • 打赏
  • 举报
回复
同意楼上guothreelove2003() 的
首先拦截消息,然后在 执行添加需要执行的代码……

jxc163 2003-10-27
  • 打赏
  • 举报
回复
楼上的方法比较可行,在这里还可以加入对事件的其它处理
guothreelove2003 2003-10-27
  • 打赏
  • 举报
回复

窗口将响应WM_SYSCOMMAND消息,Message.CmdType=SC_MINIMIZE
想避免窗口最小化,则继承该消息响应,并在 CmcType=SC_MINIMIZE
时不做处理,例子如下:
private
procedure WMSyscommand(var Message: TWMSysCommand); message WM_SYS
COMMAND;
... ...
implementation
procedure TFormXXX.WMSyscommand(var Message: TWMSysCommand);
begin
case Message.CmdType of
SC_MINIMIZE:
//添加代码
else inherited;
end;
end;
idilent 2003-10-25
  • 打赏
  • 举报
回复
在form的ondeactive是建立处理,但是关闭等也会触发这个事件,需要自己处理一下。
陈祥xx 2003-10-25
  • 打赏
  • 举报
回复
还是问题太简单了,根本不屑一答???
陈祥xx 2003-10-25
  • 打赏
  • 举报
回复
无人能答吗
wlyx2003 2003-10-25
  • 打赏
  • 举报
回复
有没办法使用截取消息来实现呢,如果行的话该如何做呢,望指点

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧