完整的代碼如下：

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)lbl1: TLabel;privateprocedure WMSYSCOMMAND(var msg:TMessage);message WM_SYSCOMMAND;{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.WMSYSCOMMAND(var msg: TMessage);beginif msg.WParam=SC_CLOSE then Close;if msg.WParam=SC_MOVE then msg.WParam:=0;end;end.

?

轉載于:https://www.cnblogs.com/qqook/p/3444993.html

總結

以上是生活随笔為你收集整理的DELPHI 禁止移动窗体的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。