Application.ProcessMessages的作用是中断当前进程，去响应Windows的消息，我现在可不可以这样做？

Question

我想叫它只响应我特定的消息，而有一些消息我不想叫它响应，用Application.ProcessMessages来实现，或是有没有什么好的方法？

Answer 1

按着CTRL键,点ProcessMessages,看看他是如何实现了,自己改改,放到你要用的地方

Answer 2

能不能给个例子，我对Windows的消息可是一窍不通啊

Answer 3

//如让最小化失效
//1.在PUBLIC中加入
  public
    { Public declarations }
        procedure WMSysCommand(var Msg:TMessage);Message WM_SYSCOMMAND;
  end;
//2.
procedure TForm1.WMSysCommand(var Msg:TMessage);
var
  WND:integer;
begin
//最小化消息61472
if Msg.WParam<>61472 then
  begin
    inherited;  //处理，如果没有这都失效了。
  end;
end;

Answer 4

改一下试试 :   private    procedure MyMsg(var Msg: TWMSYSCOMMAND); message WM_SYSCOMMAND;
procedure tform1.MyMsg(var Msg: TWMSYSCOMMAND);
begin
  if Msg.CmdType = sc_minimize then
    ShowMessage('最小化')
  else
    if Msg.CmdType = SC_Maximize then
      ShowMessage('最大化');
  if Msg.CmdType = SC_CLOSE then
    inherited;
end;

Answer 5

wjlsmail(计算机质子) 兄，
请看一下我的这张贴子http://www.delphibbs.com/delphibbs/dispq.asp?lid=1696490