窗体标题栏消息问题

[wangtiantian]

procedure WMNCHitTest(var M: TWMNCHitTest); message WM_NCHitTest;

procedure TForm_ChildMap.WMSysCommand(var Msg: TWMSysCommand);
begin
inherited;
if (Msg.CmdType = SC_RESTORE) then //最小化SC_MINIMIZE，最大化SC_MAXIMIZE
begin
...
end;

if (Msg.CmdType = SC_MAXIMIZE) then
begin
...
end;

if (Msg.CmdType = 61730) then
...

if (Msg.CmdType = 61458) then
...

if (Msg.CmdType = SC_MINIMIZE) then
...

if Form_ChildMap.WindowState = wsMaximized then
begin
...
end;

if Form_ChildMap.WindowState = wsNormal then
begin
...
end;
end;

以上截获的都是窗体标题栏最大化、最小化、还原、双击等消息，这些消息全是窗体正在最小化开始、最大化开始的时候响应，谁知道最大化，之后，还原之后，双击之后等消息怎么截获？

请指教！

[zuoansuifeng]

procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; //在Public部分声明

procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = SC_MINIMIZE) then
begin
//最小化消息
end
else
if (Msg.CmdType = SC_MAXIMIZE) then
begin
//最大化消息
end
else
if (Msg.CmdType = SC_RESTORE) then
begin
//还原消息
end;
DefaultHandler(Msg);//默认处理
end;

procedure WMLButtonDblClk(var Message: Tmessage); message
//鼠标双击消息 先找到窗体的句柄 判断鼠标是否双击的是窗体的标题拦