procedure WMNChitTest(var Msg:TWMNChitTest);message WM_NCHITTEST;
procedure TForm13.WMNChitTest(var Msg:TWMNChitTest);
begin
inherited;
if Msg.Result=htClient then//将客户区消息转换成拖动标题时产生的消息
Msg.Result:=htCaption;
end;
procedure WMNChitTest(var Msg:TWMNChitTest);message WM_NCHITTEST;
procedure TForm13.WMNChitTest(var Msg:TWMNChitTest);
begin
inherited;
if Msg.Result=htClient then//将客户区消息转换成拖动标题时产生的消息
Msg.Result:=htCaption;
end;