如何从边框图标中检测出近距离的形式？

Question

我的表单中有取消和确定按钮.他们都做了一些事情,然后打电话给他们.如何在表单上设置[x]按钮来调用Cancelclick？

Answer 1

如果表单以模态显示,那么您只需要测试值ModalResult.值mrCancel表示单击了十字.

我倾向于安排你的按钮使用它们的ModalResult属性来关闭表单.设置OK按钮的ModalResult以mrOK和,对于取消按钮mrCancel.

Answer 2

将此添加到表单的公开声明中

procedure WMSysCommand(var MSG: TWMSysCommand); message WM_SYSCOMMAND;

然后添加方法

procedure TForm1.WMSYSCommand(var MSG:  TWMSysCommand);
begin
  if MSG.CmdType = SC_CLOSE then
  begin
     //Closing from border icon
  end;
  inherited;
end;