如何在标题栏上增加按钮

于 2012-11-05 09:56:18 发布
阅读量2.2k 收藏 3
点赞数
分类专栏： UI界面库 Delphi

如何在标题栏上增加按钮

---- 大家在使用某些软件的过程中，有没有注意到有些软件有一些很有趣的东西。比如说在主窗口的标
题栏上居然有一个按钮。在Internet中随处可见这样的小控件。按钮怎么可以加入到非客户区(Client)
呢？ 

---- 在这里，最关键的一点就是，大家不要被传统知识误导：真的认为它是一个按钮。有名柄（handle)
的控件当然不能放在标题栏上了。有经验的程序员用Spy++跟踪一下的话，马上就会发现其中的秘密。它
并不是一个按钮，只不过是处理成按钮的样子罢了。 

---- 既然知道了所以然，那么我们为什么不能自己来做一个呢，当然没问题，下面我们就用Delphi来实
现
它，讲注意我的注解。 

---- 在具体实例之前，我们应该知道几个关于标题栏的重要的消息： 

---- WM_NCPAINT：重画标题栏消息。我们必须截住它，可以在这里重画按钮； 

---- WM_NCLBUTTONDOWN：在标题栏上按下鼠标左键消息。我们可以截住它，在标题栏上画出按钮按下的
样子，并且可以在其中进行自已的单击事件的处理，使得它像一个按钮； 

---- WM_NCLBUTTONUP：在标题栏上释放鼠标左键消息。我们可以截住它，在标题栏上画出按钮弹起的样
子； 

---- WM_NCLBUTTONDBLCLK：在标题栏上双击鼠标左键消息。我们可以截住它，当在按钮区域双击时，
我们就该使其无效，从而避免窗体执行最大化和还原操作。 

---- WM_NCRBUTTONDOWN：在标题栏上按下鼠标右键消息。我们可以截住它，当在按钮区域双击时，我
们就该使其无效，从而避免弹出窗体按制菜单。 

---- WM_NCMOUSEMOVE：在标题栏上移动鼠标消息。我们可以截住它，当鼠标移出按钮区域时，我们就
必须画出按钮没有被按下，即凸起时的样子。 

---- WM_NCACTIVATE：当标题栏在激活与非激活之间切换时收到该消息。我们可以截住它，当该窗口处
理激活状态时，我们可以做一些事情，比如说将我们的标题栏按钮上的字体变灰或变黑来指示该窗口的
当前状态。下面我没有加入该项功能，如果大家感兴趣的话，可以自己完成。 
---- (大家从这里可以发现，标题栏的消息都是WM_NC开头的) 

---- 知道了原理之后，相信大家一定可以做出更漂亮的按钮来。


WinAPI: DrawFrameControl - 绘制控件


//声明:
DrawFrameControl(
  DC: HDC;            {设备环境句柄}
  const Rect: TRect;  {矩形}
  uType, uState: UINT {控件类型与控件状态}
): BOOL;


//控件类型 uType 参数可选值:
DFC_CAPTION   = 1; {标题按钮}
DFC_MENU      = 2; {菜单}
DFC_SCROLL    = 3; {滚动条按钮}
DFC_BUTTON    = 4; {标准按钮}
DFC_POPUPMENU = 5; {弹出菜单}


//控件状态  uState 参数可选值:

{针对 DFC_CAPTION}
DFCS_CAPTIONCLOSE   = 0;
DFCS_CAPTIONMIN     = 1;
DFCS_CAPTIONMAX     = 2;
DFCS_CAPTIONRESTORE = 3;
DFCS_CAPTIONHELP    = 4;

{针对 DFC_MENU}
DFCS_MENUARROW      = 0;
DFCS_MENUCHECK      = 1;
DFCS_MENUBULLET     = 2;
DFCS_MENUARROWRIGHT = 4;

{针对 DFC_SCROLL}
DFCS_SCROLLUP            = 0;
DFCS_SCROLLDOWN          = 1;
DFCS_SCROLLLEFT          = 2;
DFCS_SCROLLRIGHT         = 3;
DFCS_SCROLLCOMBOBOX      = 5;
DFCS_SCROLLSIZEGRIP      = 8;
DFCS_SCROLLSIZEGRIPRIGHT = $10;

{针对 DFC_BUTTON}
DFCS_BUTTONCHECK      = 0;
DFCS_BUTTONRADIOIMAGE = 1;
DFCS_BUTTONRADIOMASK  = 2;
DFCS_BUTTONRADIO      = 4;
DFCS_BUTTON3STATE     = 8;
DFCS_BUTTONPUSH       = $10;

{通用状态}
DFCS_INACTIVE    = $100;
DFCS_PUSHED      = $200;
DFCS_CHECKED     = $400;
DFCS_TRANSPARENT = $800;
DFCS_HOT         = $1000;
DFCS_ADJUSTRECT  = $2000;
DFCS_FLAT        = $4000;
DFCS_MONO        = $8000;


//举例:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    RadioGroup3: TRadioGroup;
    RadioGroup4: TRadioGroup;
    RadioGroup5: TRadioGroup;
    RadioGroup6: TRadioGroup;
    Panel1: TPanel;
    procedure RadioGroup1Click(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure RadioGroup3Click(Sender: TObject);
    procedure RadioGroup4Click(Sender: TObject);
    procedure RadioGroup5Click(Sender: TObject);
    procedure RadioGroup6Click(Sender: TObject);
    procedure Draw;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  DFC  : Integer = 0;
  DFCS1: Integer = 0;
  DFCS2: Integer = 0;

procedure TForm1.Draw;
begin
  Panel1.Refresh;
  DrawFrameControl(GetDC(Panel1.Handle), Rect(10,10,100,50), DFC, DFCS1 or DFCS2);
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  Panel1.Refresh;
  case RadioGroup1.ItemIndex of
    0: begin
      DFC := DFC_CAPTION;
      RadioGroup3.Enabled := True;
      RadioGroup4.Enabled := False;
      RadioGroup5.Enabled := False;
      RadioGroup6.Enabled := False;
    end;
    1: begin
      DFC := DFC_MENU;
      RadioGroup3.Enabled := False;
      RadioGroup4.Enabled := True;
      RadioGroup5.Enabled := False;
      RadioGroup6.Enabled := False;
    end;
    2: begin
      DFC := DFC_SCROLL;
      RadioGroup3.Enabled := False;
      RadioGroup4.Enabled := False;
      RadioGroup5.Enabled := True;
      RadioGroup6.Enabled := False;
    end;
    3: begin
      DFC := DFC_BUTTON;
      RadioGroup3.Enabled := False;
      RadioGroup4.Enabled := False;
      RadioGroup5.Enabled := False;
      RadioGroup6.Enabled := True;
    end;
    4: begin
      DFC := DFC_POPUPMENU;
      RadioGroup3.Enabled := False;
      RadioGroup4.Enabled := True;
      RadioGroup5.Enabled := False;
      RadioGroup6.Enabled := False;
    end;
  end;
end;

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
  case RadioGroup2.ItemIndex of
    0: DFCS1 := DFCS_INACTIVE;
    1: DFCS1 := DFCS_PUSHED;
    2: DFCS1 := DFCS_CHECKED;
    3: DFCS1 := DFCS_TRANSPARENT;
    4: DFCS1 := DFCS_HOT;
    5: DFCS1 := DFCS_ADJUSTRECT;
    6: DFCS1 := DFCS_FLAT;
    7: DFCS1 := DFCS_MONO;
  end;
  Draw;
end;

procedure TForm1.RadioGroup3Click(Sender: TObject);
begin
  case RadioGroup3.ItemIndex of
    0: DFCS2 := DFCS_CAPTIONCLOSE;
    1: DFCS2 := DFCS_CAPTIONMIN;
    2: DFCS2 := DFCS_CAPTIONMAX;
    3: DFCS2 := DFCS_CAPTIONRESTORE;
    4: DFCS2 := DFCS_CAPTIONHELP;
  end;
  Draw;
end;

procedure TForm1.RadioGroup4Click(Sender: TObject);
begin
  case RadioGroup4.ItemIndex of
    0: DFCS2 := DFCS_MENUARROW;
    1: DFCS2 := DFCS_MENUCHECK;
    2: DFCS2 := DFCS_MENUBULLET;
    3: DFCS2 := DFCS_MENUARROWRIGHT;
  end;
  Draw;
end;

procedure TForm1.RadioGroup5Click(Sender: TObject);
begin
  case RadioGroup5.ItemIndex of
    0: DFCS2 := DFCS_SCROLLUP;
    1: DFCS2 := DFCS_SCROLLDOWN;
    2: DFCS2 := DFCS_SCROLLLEFT;
    3: DFCS2 := DFCS_SCROLLRIGHT;
    4: DFCS2 := DFCS_SCROLLCOMBOBOX;
    5: DFCS2 := DFCS_SCROLLSIZEGRIP;
    6: DFCS2 := DFCS_SCROLLSIZEGRIPRIGHT;
  end;
  Draw;
end;

procedure TForm1.RadioGroup6Click(Sender: TObject);
begin
  case RadioGroup6.ItemIndex of
    0: DFCS2 := DFCS_BUTTONCHECK;
    1: DFCS2 := DFCS_BUTTONRADIOIMAGE;
    2: DFCS2 := DFCS_BUTTONRADIOMASK;
    3: DFCS2 := DFCS_BUTTONRADIO;
    4: DFCS2 := DFCS_BUTTON3STATE;
    5: DFCS2 := DFCS_BUTTONPUSH;
  end;
  Draw;
end;

end.


//效果图:

附上窗体结构代码:

附上窗体结构代码:

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 386
  ClientWidth = 499
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object RadioGroup1: TRadioGroup
    Left = 0
    Top = 8
    Width = 137
    Height = 129
    Caption = 'RadioGroup1'
    Items.Strings = (
      'DFC_CAPTION   '
      'DFC_MENU      '
      'DFC_SCROLL    '
      'DFC_BUTTON    '
      'DFC_POPUPMENU ')
    TabOrder = 0
    OnClick = RadioGroup1Click
  end
  object RadioGroup2: TRadioGroup
    Left = 0
    Top = 143
    Width = 137
    Height = 170
    Caption = 'RadioGroup2'
    Items.Strings = (
      'DFCS_INACTIVE'
      'DFCS_PUSHED'
      'DFCS_CHECKED'
      'DFCS_TRANSPARENT'
      'DFCS_HOT'
      'DFCS_ADJUSTRECT'
      'DFCS_FLAT'
      'DFCS_MONO')
    TabOrder = 1
    OnClick = RadioGroup2Click
  end
  object RadioGroup3: TRadioGroup
    Left = 143
    Top = 8
    Width = 178
    Height = 129
    Caption = 'RadioGroup3'
    Items.Strings = (
      'DFCS_CAPTIONCLOSE   '
      'DFCS_CAPTIONMIN'
      'DFCS_CAPTIONMAX'
      'DFCS_CAPTIONRESTORE'
      'DFCS_CAPTIONHELP')
    TabOrder = 2
    OnClick = RadioGroup3Click
  end
  object RadioGroup4: TRadioGroup
    Left = 327
    Top = 8
    Width = 170
    Height = 129
    Caption = 'RadioGroup4'
    Items.Strings = (
      'DFCS_MENUARROW'
      'DFCS_MENUCHECK'
      'DFCS_MENUBULLET'
      'DFCS_MENUARROWRIGHT')
    TabOrder = 3
    OnClick = RadioGroup4Click
  end
  object RadioGroup5: TRadioGroup
    Left = 143
    Top = 143
    Width = 178
    Height = 170
    Caption = 'RadioGroup5'
    Items.Strings = (
      'DFCS_SCROLLUP'
      'DFCS_SCROLLDOWN'
      'DFCS_SCROLLLEFT'
      'DFCS_SCROLLRIGHT'
      'DFCS_SCROLLCOMBOBOX'
      'DFCS_SCROLLSIZEGRIP'
      'DFCS_SCROLLSIZEGRIPRIGHT')
    TabOrder = 4
    OnClick = RadioGroup5Click
  end
  object RadioGroup6: TRadioGroup
    Left = 327
    Top = 143
    Width = 170
    Height = 170
    Caption = 'RadioGroup6'
    Items.Strings = (
      'DFCS_BUTTONCHECK'
      'DFCS_BUTTONRADIOIMAGE'
      'DFCS_BUTTONRADIOMASK'
      'DFCS_BUTTONRADIO'
      'DFCS_BUTTON3STATE'
      'DFCS_BUTTONPUSH')
    TabOrder = 5
    OnClick = RadioGroup6Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 319
    Width = 499
    Height = 67
    Align = alBottom
    Caption = 'Panel1'
    TabOrder = 6
  end
end

/
另一个例子
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
    CaptionBtn:TRect;
    procedure DrawCaptButton;
    procedure WMNCPaint(var Msg:TWMNCPaint);message WM_NCPaint;
    procedure WMNCActivate(var Msg:TWMNCActivate);message WM_NCActivate;
    procedure WMSetText(var Msg:TWMSetText);message WM_SetText;
    procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHittest;
    procedure WMNCLButtonDown(var Msg:TWMNCLButtonDown);message WM_NCLButtonDown;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

const
  htCaptionBtn=htSizeLast+1;

{$R *.DFM}

procedure TForm1.DrawCaptButton;{绘制按钮}
var
  xFrame,yFrame,xSize,ySize:Integer;
  R:TRect;
begin
  xFrame:=GetSystemMetrics(SM_CXFRAME);
  yFrame:=GetSystemMetrics(SM_CYFRAME);
  xSize:=GetSystemMetrics(SM_CXSIZE);
  ySize:=GetSystemMetrics(SM_CYSIZE);
  CaptionBtn:=Bounds(Width-xFrame-5*xSize+2,yFrame+2,xSize+13,ySize-4);
  Canvas.Handle:=GetWindowDC(Self.Handle);
  Canvas.Font.Name:='宋体';
  Canvas.Font.Color:=clRed;
  Canvas.Pen.Color:=clYellow;
  Canvas.Brush.Color:=clBtnFace;
  try
    DrawButtonFace(Canvas,CaptionBtn,1,bsAutoDetect,False,False,False);
    R:=Bounds(Width-xFrame-5*xSize+3,yFrame+3,xSize+10,ySize-7);
    with CaptionBtn do
      Canvas.TextRect(R,R.Left+2,R.Top,'按钮');
  finally
    ReleaseDC(Self.Handle,Canvas.Handle);
    Canvas.Handle:=0;
  end;
end;

procedure TForm1.WMNCActivate(var Msg: TWMNCActivate);
begin
inherited;
  DrawCaptButton;
end;

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
inherited;
  with Msg do
    if PtInRect(CaptionBtn,Point(xPos-Left,yPos-Top)) then
    Result:=htCaptionBtn;
end;

procedure TForm1.WMNCLButtonDown(var Msg: TWMNCLButtonDown);{标题栏按钮响应事件}
begin
inherited;
  if(Msg.HitTest=htCaptionBtn)then
    showmessage('检验成功');
end;

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
begin
inherited;
  DrawCaptButton;
end;

procedure TForm1.WMSetText(var Msg: TWMSetText);
begin
inherited;
  DrawCaptButton;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Perform(WM_NCACTIVATE,Word(Active),0);
end;

end.

///
object Form1: TForm1
  Left = 219
  Top = 160
  Width = 306
  Height = 218
  Caption = 'Form1'
  Color = clTeal
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
end

ilvu999
关注
专栏目录
C# WinForm 中在窗口标题栏上加按钮
farproc's blog
08-14 7566
作者：袁晓辉主页：http://www.farproc.com BLOG：http://blog.csdn.net/uoyevoli/    在窗口标题栏上加按钮本来不是什么新鲜事了，我在VC++下早也实现过了（相信很多人也都实现过了）。今天一个朋友问我C# WinForm下可否实现，我就顺便拿C#写了一个。    原理是一样的，都是重写窗口过程（WndProc），处理一些非客户区消息（WM_NC
C# winform 标题栏添加按钮（源码）
02-15
C# winform 标题栏添加按钮（源码）
C# WinForm 中在窗口标题栏上加按钮(转)
abc11111118的博客
06-02 328
作者：袁晓辉主页：http://www.farproc.comBLOGhttp://blog.csdn.net/uoyevoli/ 在窗口标题栏上加按钮本来不是什么新鲜事了，我在VC++下早也实现过了（相信很多人也都实现过了）。今天一个朋友问我C# WinForm下可否实现，我就顺便拿C#写了一个。 原理是一样的，都是重写窗口过程（WndProc），处理一些非客户区消息（WM...
visual c++ VC在标题栏上添加按钮
04-12
在本文中，我们将深入探讨如何在VC++中实现一个独特且吸引人的功能——在窗口标题栏上添加按钮。这个功能可以增强用户体验，提供更直观的交互方式。 首先，我们需要了解的是界面设计的基本概念。在Windows应用中，...
易语言-易语言在标题栏上添加按钮源码开源
06-25
在标题栏上添加按钮是Windows应用程序常见的自定义功能，可以提供额外的交互方式，比如最小化、最大化、关闭操作或者自定义功能。在易语言中实现这一功能，需要对窗口控件和消息处理有深入的理解。 首先，我们要...
vc在标题栏上添加按钮
04-10
visual c++在标题栏上添加按钮
VC实现标题栏添加按钮
12-11
用VC实现了在标题栏添加按钮,纯VC源代码,VC6.0通过编译,归类:界面类
WinForm 中在窗口标题栏上加按钮.zip
09-27
WinForm 中在窗口标题栏上加按钮 适配win10
VB在窗体标题栏中添加自定义按钮.rar
07-10
VB在窗体标题栏中添加自定义按钮，类似最大化，最小化按钮一样，美化一下，看不出是用户添加的按钮，当然，本例是只是简单的进行了美化。
在任意窗口标题栏添加按钮_
11-13
在任意窗口标题栏添加按钮源码示例－源码示例－源码示例
如何在标题栏上添加按钮(添加除了最小化放大关闭按钮以外的自定义按钮).zip
01-21
通过这个句柄，我们可以对窗口进行操作，包括在标题栏上添加按钮。 2. **API函数**：Windows API 提供了一些函数，如 `CreateWindowEx` 和 `SetWindowLong`，用于创建和管理自定义控件。例如，`CreateWindowEx` 可...
Delphi如何在窗体标题栏添加按钮
weixin_30394333的博客
11-02 293
unit Unit1; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Buttons, DdeMan, StdCtrls; type TTitleBtnForm = class(TForm) But...
matlab怎么在tab卡标题栏上添加关闭按钮
最新发布
06-13
在 MATLAB 中，可以通过以下步骤在 tab 标题栏上添加关闭按钮： 1. 创建一个包含 tab 的 TabGroup。 2. 创建一个 pushbutton 并将其父级设置为 tab。 3. 将 pushbutton 的位置和大小设置为所需的大小和位置。 4....
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值