功能说明:WM_nclButtonDblClk响应标题栏事件
{在private上面写}
proceduremy_nclButtonDblClick(varMsg:TWMNCLButtonDblClk);
message WM_nclButtonDblClk;
procedureTForm1.my_nclButtonDblClick(varMsg: TWMNCLButtonDblClk);
begin
Application.MessageBox('你双击了标题栏','提示', MB_OK+MB_ICONINFORMATION);
end;
{在private上面写}
proceduremy_nclButtonDblClick(varMsg:TWMNCLButtonDblClk);
message WM_nclButtonDblClk;
procedureTForm1.my_nclButtonDblClick(varMsg: TWMNCLButtonDblClk);
begin
Application.MessageBox('你双击了标题栏','提示', MB_OK+MB_ICONINFORMATION);
end;