在delphi中如何用sendmessage发送wm_move消息

weixin_0612 2004-11-30 05:27:39

在delphi中如何用sendmessage发送wm_move消息，主要是如何发送要移动的坐标，请给出程序源码

...全文

248 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

weixin_0612 2004-12-01

打赏
举报

回复

格式对了，但是代码不起作用，不能移动别的窗口位置，怎么办啊？
不过这个帖子还是结了

Nirvanaxumm 2004-11-30

打赏
举报

回复

syscommand

newfang 2004-11-30

打赏
举报

回复

OK!!

nyf1220 2004-11-30

打赏
举报

回复

sendmessage(Handel,Wm_Move,xpos,ypos)

SendMessage函数完全使用手册,一些消息传送格式的定义

delphi进程间消息收发通过获取窗口句柄发送tcopydata消息附带一些小参数

sendmessage 发送字符串源码，接收部分

procedure button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if btnWinmax.Hint='还原' then abort; if ssLeft in Shift then begin ReleaseCapture; SendMessage(Handle, WM_SYSCOMMAND, $F012, 0); //截获移动消息 end; end;

四周带阴影的无边框窗口（DELPHI源代码）使用说明： 1、将Vcl.ShadowForms加入Uses; 2、将默认的TForm1 = class(TForm)改为TForm1 = class(TShadowForm); 3、将Form的BorderStyle改为bsNone; 4、在From的FormMouseDown事件中增加以下语句： ReleaseCapture; SendMessage(Handle, WM_SYSCOMMAND, SC_MOVE + HTCaption, 0);

Windows SDK/API

1,184

社区成员

22,326

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章