当前位置: 源码素材网 » Delphi教程 » 详情页

Delphi让窗口右上角的最大最小化和关闭按钮失效

  •   时间:2018-12-24
  • 概述:禁止拖动

Delphi禁止掉窗体右上角的各个操作按钮,比如最大化、最小化、还有关闭按钮,当你点击这些按钮的时候,它们并没有任何响应,就像没有定义动作一样,同时窗口也禁止拖动,不能移动位置,下面看下Delphi中的实现方法:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Close; // 不可少, 因为已经没有其他方法能关闭此窗口了
end;
procedure TForm1.WMNCHitTest(var Msg: TMessage);
begin
  inherited; // 这样,移动就不可能了...
  Msg.Result := HTCLIENT;
end;
end.

    相关声明:

      若“Delphi让窗口右上角的最大最小化和关闭按钮失效”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。