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;
|
请发表评论