抓住最小化事件表格(德尔福)

发布时间：2020-12-15 09:30:20 所属栏目：大数据来源：网络整理

导读：我找到了2种捕捉onMinimize事件的方法. 第一：关于FormResize事件： if MyForm.WindowState = wsMinimized then ...... 第二：声明消息处理程序如下： procedure WMSize(var Msg: TMessage); message WM_SIZE; 然后： procedure TForm57.WMSize(var Msg: TMe

我找到了2种捕捉onMinimize事件的方法.

第一：关于FormResize事件：

if MyForm.WindowState = wsMinimized then ......

第二：声明消息处理程序如下：

procedure WMSize(var Msg: TMessage); message WM_SIZE;

然后：

procedure TForm57.WMSize(var Msg: TMessage);
begin
  if Msg.WParam  = SIZE_MINIMIZED then ....
end;

哪种方式更好？！

解决方法

响应相同的消息(WM_SIZE)触发OnResize.除非您需要在VCL处理消息之前做出反应(更新滚动条,对齐控件等),否则您不需要附加消息处理程序.否则,请务必在继承的调用之前处理它(样本中缺少该调用).

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!