文档章节

重载 CreateParams 方法[1]: 从一个例子开始(取消窗口最大化、最小化按钮的三种方法)

涂孟超
 涂孟超
发布于 2014/09/26 15:32
字数 198
阅读 8
收藏 0

方法1: 使用 TForm 的 BorderIcons 属性
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderIcons := BorderIcons - [biMinimize, biMaximize];
end;

end.

 
 
 
 
 

 

 

  

方法2: 使用 SetWindowLong 函数
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  ws: Integer;
begin
  ws := GetWindowLong(Handle, GWL_STYLE);
  ws := ws xor WS_MINIMIZEBOX xor WS_MAXIMIZEBOX;
  SetWindowLong(Handle, GWL_STYLE, ws);
end;

end.

 
 
 
 
 

 

 

  

方法3: 重载 CreateParams 方法
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited; //inherited CreateParams(Params);
  Params.Style := Params.Style xor WS_MINIMIZEBOX xor WS_MAXIMIZEBOX;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/09/02/1281680.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
用Winform实现屏幕小键盘

前几天碰到一个问题,需要使用Winform实现屏幕小键盘,研究了一下,有一个自认为比较完美的解决方案。 屏幕小键盘的实现方式很简单,无非就是在窗体上加上几个按钮,然后在鼠标的点击事件里使...

技术小美
2017/11/12
0
0
tkinter窗口属性设置

from tkinter import * root = Tk() def call(): print("猪") root.destroy() btn1 = Button(root,command = root.iconify) btn1.pack() btn2 = Button(root,command = print(root.state)) ......

jinx88
2016/06/19
574
0
python wxPython 5 (框架 wx.Frame)

wxPython 5 (框架 wx.Frame) 2008年08月21日 星期四 22:20

木头r
2011/10/08
0
0
VC++改变对话框的背景色和VC++制作伸展自如、收缩随意的对话框

改变对话框的背景色 黄基前(广西桂林) ---- 笔者曾在《软件报》2000年第5期中讨论过如何改变控件的颜色,但还有 相当一部分的读者来信提问:一个基于对话框的MFC AppWizard应用程序中,如 何...

长平狐
2013/01/06
1K
0
WPF 应用完全模拟 UWP 的标题栏按钮

版权声明:本作品采用知识共享署名-非商业性使用-相同方式共享 4.0 国际许可协议进行许可。欢迎转载、使用、重新发布,但务必保留文章署名吕毅(包含链接:http://blog.csdn.net/wpwalter/)...

謎之E菌
2018/08/27
0
0

没有更多内容

加载失败,请刷新页面

加载更多

容器服务

简介 容器服务提供高性能可伸缩的容器应用管理服务,支持用 Docker 和 Kubernetes 进行容器化应用的生命周期管理,提供多种应用发布方式和持续交付能力并支持微服务架构。 产品架构 容器服务...

狼王黄师傅
昨天
3
0
高性能应用缓存设计方案

为什么 不管是刻意或者偶尔看其他大神或者大师在讨论高性能架构时,自己都是认真的去看缓存是怎么用呢?认认真真的看完发现缓存这一块他们说的都是一个WebApp或者服务的缓存结构或者缓存实现...

呼呼南风
昨天
12
0
寻找一种易于理解的一致性算法(扩展版)

摘要 Raft 是一种为了管理复制日志的一致性算法。它提供了和 Paxos 算法相同的功能和性能,但是它的算法结构和 Paxos 不同,使得 Raft 算法更加容易理解并且更容易构建实际的系统。为了提升可...

Tiny熊
昨天
3
0
聊聊GarbageCollectionNotificationInfo

序 本文主要研究一下GarbageCollectionNotificationInfo CompositeData java.management/javax/management/openmbean/CompositeData.java public interface CompositeData { public Co......

go4it
昨天
3
0
阿里云ECS的1M带宽理解

本文就给大家科普下阿里云ECS的固定1M带宽的含义。 “下行带宽”和“上行带宽” 为了更好的理解,需要先给大家解释个词“下行带宽”和“上行带宽”: 下行带宽:粗略的解释就是下载数据的最大...

echojson
昨天
10
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部