文档章节

实现无标题栏但有边框的窗口

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 164
阅读 3
收藏 0
本例效果图:



代码文件:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
  private
    procedure MyMsg(var Msg: TWMNCHitTest); message WM_NCHITTEST;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) xor WS_CAPTION);
  if not CheckBox1.Checked then begin Hide; Show; end;
end;

procedure TForm1.MyMsg(var Msg: TWMNCHitTest);
begin
  Inherited;
  if Msg.Result = HTCLIENT then Msg.Result := HTCAPTION;
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 107
  ClientWidth = 228
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object CheckBox1: TCheckBox
    Left = 32
    Top = 40
    Width = 161
    Height = 17
    Caption = #26080#26631#39064#26639#20294#26377#36793#26694#30340#31383#21475
    TabOrder = 0
    OnClick = CheckBox1Click
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/08/29/1279478.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
Qt学习:无边框界面的实现总结

无边框界面是每个桌面应用必备的功能。手机无边框就很好解决了,直接无边框就好了,默认是全屏的。但是桌面无边框会有很多问题,首先是不能拖动。 之前看过别人的无边框实现,大部分是做成整...

wzj0808
03/06
0
0
如何取得窗口标题栏的高度及窗口边框的宽度

如何取得窗口标题栏的高度及窗口边框的宽度 SMCYCAPTION = 4 SMCXBORDER = 5 SM_CYBORDER = 6 GetSystemMetrics(4) //窗口标题栏高度 GetSystemMetrics(5) //窗口边框宽度 GetSystemMetrics...

richardw
2012/10/12
0
0
VC 利用SetWindowRgn实现程序窗口的圆角多角矩形

下面是实现程序窗口圆角多角矩形的三种方法,但效果都比较差。只是简单的将边角裁 剪,从边框和标题栏上都可以看出来。不过可以通过这三个函数来学习下 SetWindowRgn()及创建一个HRGN的不同方...

彭博
2012/04/12
274
0
疯狂的小潘/javafx-window

javafx 窗口装饰器 客户端一值不是java的强项,但javafx发布后,我们就应该开始改变这种观点了;ControlsFX、jfxtras等插件也让javafx如虎添翼. javafx 提供了独立的UI开发工具JavaFX Scene Bu...

疯狂的小潘
2016/02/01
0
0
QT::WindowFlags枚举类型解析

转自:https://blog.csdn.net/bruce_0712/article/details/53506621 在使用Qt设计的时候经常会看到QWidget控件的构造函数出现下面这样一句话: QWidget(QWidget *parent=0,Qt::WindowFlags ...

m0_37806112
04/04
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

bat强制启用宏

运行bat文件后,将宏的安全等级设为低,达到启用宏的目的。 REM 这个文件将提供用户快速设置Excel宏的安全等级@ECHO OFFCLS:cmd4REG ADD "HKEY_CURRENT_USER\Software\Mi...

tedzheng
11分钟前
0
0
流,用声明性的方式处理数据集 - 读《Java 8实战》

引入流 Stream API的代码 声明性 更简洁,更易读 可复合 更灵活 可并行 性能更好 流是什么? 它允许以声明方式处理数据集合 遍历数据集的高级迭代器 透明地并行处理 简短定义:从支持数据处理...

yysue
13分钟前
1
0
postman发送json格式的post请求

postman发送json格式的post请求 在地址栏里输入请求url:http://127.0.0.1:8081/getmoney 选择“POST”方式, 在“headers”添加key:Content-Type , value:application/json 点击"body",''ra...

两广总督bogang
19分钟前
0
0
Javascript将html转成pdf,下载(html2canvas 和 jsPDF)

最近碰到个需求,需要把当前页面生成pdf,并下载。弄了几天,自己整理整理,记录下来,我觉得应该会有人需要 :) 项目源码地址:https://github.com/linwalker/render-html-to-pdf html2ca...

孟飞阳
20分钟前
0
0
pureftp源码编译及设定

--- use for RHEL 567 and Ubuntu 1604 1. download pureftpd wget http://download.pureftpd.org/pub/pure-ftpd/releases/pure-ftpd-1.0.47.tar.bz2 2. install gcc #apt-get install -y li......

zzimac
22分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部