DELPHI 禁止移动窗体
生活随笔
收集整理的这篇文章主要介绍了
DELPHI 禁止移动窗体
小编觉得挺不错的,现在分享给大家,帮大家做个参考.
完整的代码如下:
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 禁止移动窗体的全部内容,希望文章能够帮你解决所遇到的问题。
- 上一篇: 编写高质量的Objective-C代码
- 下一篇: iOS内存管理编程指南