如何使得Form窗口的位置不能移动。 把bordericons下的borderstyle设为bsNone 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 窗体移动时会触发系统消息WM_WINDOWPOSCHANGING,该消息中包含有新窗体的位置,用来通知内核该窗体要发生移动,内核接收到该消息后,开始销毁该窗体并在新位置重绘。如果更改消息的内容,使窗体保持在其原来的位置,那么窗体就不会移动了。procedure TForm1.OnPosChange(var Msg:TWMWindowPosChanging);begin//消息的Windowpos.x部分包含新窗体的左边位置,将其改成原来窗体的左边坐标Msg.WindowPos.x:=form1.Left;//Left的完整名称为Form1.Left//消息的WindowsPos.y部分包含新窗体的顶部位置,将其改成原来窗体的顶部坐标//Top的完整名称为Form1.Top Msg.WindowPos.y:=form1.top;Msg.Result:=0;end; procedure syscommande(var msg:twmsyscommande);override;begin if msg.= THEN //忘记了,查SDKend; 同意 Afei1(阿飞1) 的意见 procedure TForm1.OnPosChange(var Msg:TWMWindowPosChanging);begininherited;Msg.Result:=0;end;一半同意Afei1(阿飞1) 我认为这样就可以,才可以了。 to all:请问到底在哪个事件中调用OnPosChange(var Msg:TWMWindowPosChanging)这个procedure 呢? 在Interface的TForm的声明中 TForm1 = class(Tform) ... procedure OnPosChange(var Msg:TWMWindowPosChanging); message WM_WINDOWPOSCHANGING; end;Implementationprocedure TForm1.OnPosChange(var Msg:TWMWindowPosChanging);begin ...end; procedure OnPosChange(var Msg:TWMWindowPosChanging); message WM_WINDOWPOSCHANGING定义它为一个消息处理。只要有这个消息发给你的程序,它就会运行! 求购 《Delphi面向对象编程思想》刘艺写的 delphi实现获取窗体中webbrowser的句柄,实现了网页文本框的选中(定位点击) delphi的存储过程语句问题???? 请问word中录制的宏的问题 在delphi中,如何动态的设置数据连接 想把本来细类的表组成一个大表,组织编码是个大问题,有没有好的建议 公司新版开发要用DELPHI7,那位大虾能给介绍一些好用的第三方控件for Delphi7的? 如何将123,456,789.12格式化成123456789.12? delpi 打开项目的问题 关于关闭线程时出现的错误问题 高分请教高手!! 怎么加分阿? 不是很难把?
procedure TForm1.OnPosChange(var Msg:TWMWindowPosChanging);
begin
//消息的Windowpos.x部分包含新窗体的左边位置,将其改成原来窗体的左边坐标
Msg.WindowPos.x:=form1.Left;
//Left的完整名称为Form1.Left
//消息的WindowsPos.y部分包含新窗体的顶部位置,将其改成原来窗体的顶部坐标
//Top的完整名称为Form1.Top
Msg.WindowPos.y:=form1.top;
Msg.Result:=0;
end;
begin
if msg.= THEN //忘记了,查SDKend;
begin
inherited;
Msg.Result:=0;
end;
一半同意Afei1(阿飞1)
我认为这样就可以,才可以了。
请问到底在哪个事件中调用OnPosChange(var Msg:TWMWindowPosChanging)这个
procedure 呢?
...
procedure OnPosChange(var Msg:TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;
end;Implementationprocedure TForm1.OnPosChange(var Msg:TWMWindowPosChanging);begin
...
end;