Delphi 中禁止改变窗口

Delphi中禁用移动窗口，禁止改变窗口大小，禁用最大化、最小化

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  protected
    procedure WndProc(var m:TMessage);override;//声明，覆盖父类的窗口过程
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WndProc(var m: TMessage);
begin
  if ((m.Msg =WM_SysCommand) and (m.WParam=SC_CLOSE)) //当不是关闭窗口命令时
    or ((m.Msg <> WM_SysCommand)) then  //或不是系统命令时，执行父类的默认过程
  begin
    inherited;
  end;
end;

end.
 

 WM_SYSCOMMAND是系统命令消息，SC_CLOSE是指关闭窗口的消息类别。还有许多的消息类别，可以查看MSDN或Delphi的 Windows文件，以实现不同的响应控制。