zoukankan      html  css  js  c++  java
  • 禁止用鼠标拖动窗口的大小 回复 "合肥的石头" 的问题

    问题来源: http://www.cnblogs.com/del/archive/2009/05/15/1458017.html#1534170

    //方法一, 同 BorderStyle := bsSingle;
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs;
    
    type
      TForm1 = class(TForm)
      protected
        procedure CreateParams(var Params: TCreateParams); override;
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    { TForm1 }
    
    procedure TForm1.CreateParams(var Params: TCreateParams);
    begin
      inherited;
      Params.Style := Params.Style xor WS_THICKFRAME;
    end;
    
    end.
    

    //方法二, 笨办法:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs;
    
    type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
        procedure FormResize(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    var w,h: Integer;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      w := ClientWidth;
      h := ClientHeight;
    end;
    
    procedure TForm1.FormResize(Sender: TObject);
    begin
      ClientWidth := w;
      ClientHeight := h;
    end;
    
    end.
    

    //方法三: 使用 OnCanResize 事件
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs;
    
    type
      TForm1 = class(TForm)
        procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer;
          var Resize: Boolean);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    begin
      Resize := False;
    end;
    
    end.
    
  • 相关阅读:
    tiny4412 硬件解码
    orb slam2 双目摄像头
    hi3516a arm-hisiv300-linux-gcc jrtplib交叉编译
    第12章_异常
    第10章_内部类:
    IO流深入总结
    实现对存放了Map集合的ArrayList的排序(按照map中某个字段比较)
    UML各图用处

    File类:
  • 原文地址:https://www.cnblogs.com/del/p/1486371.html
Copyright © 2011-2022 走看看