摘要:
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; 阅读全文