procedure WMMOVE(VAR Message: TWMNCHITTEST); Message WM_NCHITTEST;
procedure TForm1.WMMOVE(VAR Message: TWMNCHITTEST);
begin
Message.Result := HTCAPTION;
end;
博客展示了Delphi中处理WM_NCHITTEST消息的代码。定义了WMMOVE过程来处理该消息,在TForm1的WMMOVE过程中,将Message的Result赋值为HTCAPTION。
procedure WMMOVE(VAR Message: TWMNCHITTEST); Message WM_NCHITTEST;
procedure TForm1.WMMOVE(VAR Message: TWMNCHITTEST);
begin
Message.Result := HTCAPTION;
end;
1465

被折叠的 条评论
为什么被折叠?