神奇的$F012消息!

Lin 2000-04-12 09:27:00
现在,越来越多的应用程序没有标题栏,支持Skin。但是怎样移动窗口才方便呢?请看:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;

在Form1的空白区按住鼠标拖动试试?
...全文
205 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
halfdream 2000-04-12
  • 打赏
  • 举报
回复
M$太坏了,这东东为什么不公开呢?
在头文件里只能看到,SC_MOVE值是0XF010.
另外,补充一下,用winsight,或SPY++,都可以很容易
发现这个消息。
蝈蝈俊 2000-04-12
  • 打赏
  • 举报
回复
以后多贴些。

828

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧