文档章节

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

涂孟超
 涂孟超
发布于 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

没有更多内容

加载失败,请刷新页面

加载更多

这周撸了两款小程序,分享下关键点。

本周撸了两款小程序,在这里总结下开发过程中的小经验,希望对大家有用。 小程序端 我们先说小程序要注意的地方。 ##默认入口转发问题 当一个小程序Page的js文件中存在 onShareAppMessage 方...

阿北2017
30分钟前
2
0
物联网技术很新吗?不!都是旧技术

通常,当我们想到物联网时,我们会想到新的、令人兴奋的现代技术。毕竟,还有什么比不用起床就能通过智能手机告诉咖啡机开始煮晨杯的“未来”更重要呢? 多亏了物联网,我们可以在世界任何地方...

linuxCool
38分钟前
2
0
利用责任链模式设计一个拦截器

前言 近期在做 Cicada 的拦截器功能,正好用到了责任链模式。 这个设计模式在日常使用中频率还是挺高的,借此机会来分析分析。 责任链模式 先来看看什么是责任链模式。 引用一段维基百科对其...

crossoverJie
56分钟前
2
0
属性动画

透明度 alpha 平移translationX/translationY 旋转 rotation 缩放 scaleX/scaleY 多个动画一起AnimatorSet 透明度 ObjectAnimator oa = ObjectAnimator.ofFloat(iv,"alpha" ......

lanyu96
57分钟前
1
0
Docker和Kubernetes如何让DevOps更具效力

缩短time-to-makrt对于任何一家企业都至关重要,这直接决定了客户满意度、市场竞争力乃至盈利能力。但在部署应用时,大多数企业内的IT团队都或多或少会遇到Dev和Ops之间的问题,这两个部门围...

好雨云帮
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部