DELPHI 禁止窗体移动
private procedure WMSYSCOMMAND(var msg:TMessage);message WM_SYSCOMMAND; { Private declarations } public { Public declarations } end; //禁止窗体移动 procedure TSysTemCenter.WMSYSCOMMAND(var msg: TMessage); begin if msg.WParam=SC_MOVE then msg.WParam:=0; end;
- 上一篇 »delphi制作登陆窗体
- 下一篇 »Delphi 双击TTreeView节点时禁止展开和关闭