菜鸟级问

Question

是指最大化、最小化、恢复、关闭吗？
  procedure WMSysCommand(var Message: TMessage); message WM_SysCommand;
procedure TForm1.WMSysCommand(var Message: TMessage);
begin
  if Message.WParam = SC_Close then
    ShowMessage('关闭')
  else if Message.WParam = SC_MAXIMIZE then
    ShowMessage('最小化')
  else if Message.WParam = SC_MINIMIZE then
    ShowMessage('最大化')
  else if Message.WParam = SC_RESTORE then
    ShowMessage('恢复');
  inherited;
end;

Answer 1

用钩子实现。可以截获所有事件。