知识大全为Windows窗口标题栏添加新按钮

Posted 2022-07-21 过程

篇首语：不飞则已，一飞冲天；不鸣则已，一鸣惊人。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全为Windows窗口标题栏添加新按钮相关的知识，希望对你有一定的参考价值。

为Windows窗口标题栏添加新按钮 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　对于我们熟悉的标准windows窗口来讲标题栏上一般包含有个按钮即最大化按钮最小化按钮和关闭按钮你想不想在Windows的窗口标题栏上添加一个新的自定义按钮满足你的个性化需求从而也使自己的窗口更具特色呢？

　　下面我们就讨论一下在delphi中如何给窗口的标题栏上添加新的按钮

　　一实现起来要定义以下过程

　　定义DrawCaptButton过程这个过程的功能是在指定的位置画出按钮

　　在过程中要使用win 函数GetSystemMetrics得到窗口的大小和标题按钮的大小使用delphi函数Bounds定义一个矩形这个矩形就是新按钮的位置再定义一个小的矩形这个矩形是为了填写文本最后就调用delphi中比较有用的函数drawbuttonface把按钮画出来

　　每次我们对窗口进行操作例如最大化操作或最小化操作新按钮就会消失为了解决这个问题我们对所有的消息要进行处理给每个消息编写一个过程对按钮进行重画

　　A 定义WMNCPaint(var Msg MNCPaint)过程处理消息WM_NCPaint

　　B 定义WMNCActivate(var Msg MNCActivate)过程处理消息WM_NCACTIVATE

　　C 定义WMSetText(var Msg MSetText)过程处理消息WM_SETTEXT

　　D 定义WMNCHitTest(var Msg MNCHitTest)过程处理消息WM_NCHITTEST

　　E 定义WMNCLButtonDown(var Msg : MNCLButtonDown)过程处理消息WM_NCLBUTTONDOWN

　　二具体的源程序如下

　　我们结合源程序来讲述过程的实现从中可以看出程序对win 函数的调用以及drawbuttonface函数的使用方法

　unit Main; 　interface

　uses　Windows Buttons Messages SysUtils Classes Graphics Controls Forms Dialogs;type　TForm = class(TForm)　procedure FormResize(Sender: TObject);　private　CaptionBtn : TRect;　procedure DrawCaptButton;　procedure WMNCPaint(var Msg : MNCPaint); message WM_NCPaint;　procedure WMNCActivate(var Msg : MNCActivate); message WM_NCACTIVATE;　procedure WMSetText(var Msg : MSetText); message WM_SETTEXT;　procedure WMNCHitTest(var Msg : MNCHitTest); message WM_NCHITTEST;　procedure WMNCLButtonDown(var Msg : MNCLButtonDown); message WM_NCLBUTTONDOWN;　public　　 Public declarations 　　　end;

　var　　Form : TForm ;

　　implementation

　　const　　　htCaptionBtn = htSizeLast + ;　　　$R * DFM

　　procedure TForm DrawCaptButton;　　file://drawcapbuttton过程的具体实现　var　　xFrame 　　yFrame 　　xSize 　　ySize : Integer;　　R : TRect;　begin　　xFrame := GetSystemMetrics(SM_CXFRAME);　　yFrame := GetSystemMetrics(SM_CYFRAME);　　file://把窗口的宽度置于变量xFrame 把窗口的高度置于变量yFrame　　xSize:= GetSystemMetrics(SM_CXSIZE);　　ySize:= GetSystemMetrics(SM_CYSIZE);　　// 把标题栏按钮的宽度置于变量xSize 把标题栏按钮的高度置于变量ySize　　CaptionBtn := Bounds(Width xFrame *xSize + 　　yFrame + xSize ySize );　　file://定义出新的标题按钮的位置值放在变量CaptionBtn中　　Canvas Handle := GetWindowDC(Self Handle);　　file://得到窗口的句柄　　Canvas Font Name := Symbol ;　　Canvas Font Color := clBlue;　　Canvas Font Style := [fsBold];　　Canvas Pen Color := clYellow;　　Canvas Brush Color := clBtnFace;　　file://定义画布的字体画笔刷子等属性　try　　DrawButtonFace(Canvas CaptionBtn bsAutoDetect False False False);　　file://在画布上画出定义的按钮

　　R := Bounds(Width xFrame * xSize + 　　yFrame + xSize ySize );　　file://在新按钮上画出一个小矩形　　with CaptionBtn do　　Canvas TextRect(R R Left + R Top W );　　file://在上面画出的小矩形上填写一个字符 w 字符　　finally　　ReleaseDC(Self Handle Canvas Handle);　　Canvas Handle := ;　　file://容错处理如果出现异常把句柄释放掉　　end;　　end;

　procedure TForm WMNCPaint(var Msg : MNCPaint);　　//WMNCPaint过程的具体实现该过程在绘制窗口时被调用　begin　　inherited;//继承默认的消息处理程序　　DrawCaptButton;//对按钮进行重画　end;

　procedure TForm (var Msg : MNCActivate);　// WMNCActivate过程与WMNCPaint过程实现方法相同该过程在窗口的非客户区要更改为激活状态或非激活状态时被调用　begin　　inherited;　　DrawCaptButton;　end;

　procedure TForm WMSetText(var Msg : MSetText);　// WMSetText过程与WMNCPaint过程实现方法相同该过程在设置窗口的文本时被调用　begin　　inherited;　　DrawCaptButton;　end;

　procedure TForm WMNCHitTest(var Msg : MNCHitTest);　file:// WMNCHitTest过程与WMNCPaint过程实现方法相同该过程在光标移动或鼠标按钮被按下或鼠标按钮被释放时调用　begin　　inherited;　　with Msg do　　if PtInRect(CaptionBtn Point(XPos Left YPos Top)) then　　　Result := htCaptionBtn;//判断鼠标所在位置是否在新按钮的矩形范围内如果在返回新按钮的标识值　　end;

　procedure TForm WMNCLButtonDown(var Msg : MNCLButtonDown);　　// WMNCLButtonDown过程与WMNCPaint过程实现方法相同当光标处于窗口非客户区范围内鼠标左键被按下时调用该过程　begin　　inherited;　　if (Msg HitTest = htCaptionBtn) then　　　ShowMessage( 你点击的是标题栏上的新按钮 );　　　file://判断被点击的是否是新按钮如果是显示上面的信息在这里你可以按你的需要编写程序代码　　end;　procedure TForm FormResize(Sender: TObject);　　begin　　　Perform(WM_NCACTIVATE Word(Active) ); 　　　file://如果窗口大小改变则重画标题栏　　end;　end

　　三程序执行结果

　　如图所示标题栏上出现一个新按钮

图

cha138/Article/program/Delphi/201311/25072

知识大全 为Windows窗口标题栏添加新按钮

知识大全为Windows窗口标题栏添加新按钮