首页  编辑  

禁止窗体移动

Tags: /超级猛料/VCL/Form,窗体/FAQ/   Date Created:

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.