如何禁止窗体移动

字体大小: 中小 标准 ->行高大小: 标准 中 大 
type

TForm1 = class(TForm)

private

procedure wmnchittest(var msg:twmnchittest); message wm_nchittest;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.wmnchittest(var msg:twmnchittest);

begin

inherited;

if (htcaption = msg.result) then msg.result:=htclient;

end;

　

end.

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/68189.html