procedure WMNChitTest(var Msg:TWMNChitTest);message WM_NCHITTEST;
procedure TForm13.WMNChitTest(var Msg:TWMNChitTest);begininherited;
if Msg.Result=htClient then//将客户区消息转换成拖动标题时产生的消息 Msg.Result:=htCaption;
end;
posted on 2010-03-29 23:01 浔阳渔夫 阅读(151) 评论(0) 编辑 收藏 举报
Powered by: 博客园 Copyright © 2024 浔阳渔夫 Powered by .NET 8.0 on Kubernetes