delphi 禁止改变窗口大小和移动窗口

本文整理自网络，侵删。

 捕捉 Windows WM_WINDOWPOSCHANGING信息和 WindowPos 结构的‘or’标记，它把预先定义了的常数SWP_NOMOVE 和 SWP_NOSIZE 作为信息的lparam参数。


type
TForm1 = class(TForm)
private
procedure WMPosChange(var Message: TWMWINDOWPOSCHANGING);
message WM_WINDOWPOSCHANGING;
public
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure Tform1.WMPosChange(var Message: TWMWINDOWPOSCHANGING);
begin
PWindowPos(TMessage(Message).lParam).Flags :=
PWindowPos(TMessage(Message).lParam).Flags or
SWP_NOMOVE or SWP_NOSIZE;
end; 

相关阅读 >>

Delphi now 返回当前日期及时间

Delphi tms web core 判断是否包含汉字

Delphi 文件路径结尾去掉“\”

Delphi winapi: getclassname - 获取指定窗口的类名

Delphi 判断某个系统服务是否存在及相关状态

Delphi 增加/获得windows用户帐号

Delphi转换 tcolor 到 html 颜色串

Delphi 如何从html格式的字符串中提取纯文本？

Delphi 2009 的反射单元(objauto):

Delphi 删除字符串中首个字符

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 禁止改变窗口大小和移动窗口