制作从屏幕右下角逐渐弹出的消息提示框

本文介绍了一款模仿Messenger消息提示窗风格的快捷键提示窗体设计与实现过程,该窗体具备从屏幕右下角弹出、无标题但可调整大小与移动等特性。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

微软的每一个产品,无论功能还是界面设计都会带给我们一定的惊喜,比如OfficeXP、Office2003、Messenger的界面设计,早已成为众多软件竞相模仿的对象,就拿Messenger来说,我就见过好几套网络视频会议的软件都借鉴了它的界面风格。
  前段时间因为要在原来的软件上增加一个快捷键提示窗体,这个提示窗要求在显示的时候比较醒目美观能引起用户注意,显示后不影响用户操作,能够关掉。很自然的就想到了Messenger那个从屏幕右下角逐渐弹出的消息提示窗体,不过相对Messenger我更喜欢QQ2004奥运版的配色风格,反正都是偷就多偷点吧,下面快捷键提示窗的最终效果:
    快捷键提示窗样式

  这个窗体有以下几个特点:
  1、显示的时候是从屏幕右下角逐渐弹出的;
  2、它是个无标题窗体,但它必须允许用户移动和改变大小,因此要用到无标题窗体拖动、改变大小的技术;
  3、它是个不规则的窗体,主要是左上角和右上角是圆形导角,因此要为窗体创建外形,且窗体改变大小时必须重建;
  4、它标题和内容显示区都有渐层色,标题还有几个小点点,在实现时使用取巧的方法,直接利用截图进行填充。

  当然界面可以偷,代码就得老老实实的写的了,下面是界面设计图和实现代码:
    快捷键提示窗的设计图

 界面formPSHotKey.frm内容 [内容较长,请点击此处找开/折叠]

object frmPSHotKey: TfrmPSHotKey
  Left = 192
  Top = 107
  BorderStyle = bsNone
  Caption = '快捷键提示'
  ClientHeight = 168
  ClientWidth = 343
  Color = clWhite
  Constraints.MinWidth = 350
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 
'宋体'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCreate = FormCreate
  OnPaint = FormPaint
  OnResize = FormResize
  DesignSize = (
    343
    168)
  PixelsPerInch = 96
  TextHeight = 12
  object imgTitleBar: TImage
    Left = 0
    Top = 0
    Width = 343
    Height = 12
    Cursor = crSizeAll
    Align = alTop
    AutoSize = True
    Center = True
    Picture.Data = 
{
      07544269746D6170EE010000424DEE010000000000006E000000280000003900
      00000C000000010004000000000080010000120B0000120B00000E0000000E00
      0000D79D8B00A83A1700F8E6D600C9775E00F6DFCB00FAEDE200F4D7BE00F5DA
      C200EAD2BF00FCF5EE00FEFBF800BE796B00FFFFFF0000000000BBBBBBBBBBBB
      BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB000D0D0888888888888
      888888888888888888888888888888888888888888888000BBBB666666666666
      6666666666666666666666666666666666666666666660008888777777777777
      777777777777777777777777777777777777777777777000666644CC44CC44CC
      44CC44CC44CC44CC44CC44CC44CC44CC44CC44CC44CC40007777231C231C231C
      231C231C231C231C231C231C231C231C231C231C231C200044CC503550355035
      503550355035503550355035503550355035503550355000231C999999999999
      9999999999999999999999999999999999999999999990005035AAAAAAAAAAAA
      AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0009999CCCCCCCCCCCC
      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000AAAABBBBBBBBBBBB
      BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB000CCCCBBBBBBBBBBBB
      BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB000BBBB}
    OnMouseDown = imgTitleBarMouseDown
    OnMouseMove = imgTitleBarMouseMove
  end
  object imgTitleBarBG: TImage
    Left = 248
    Top = 32
    Width = 7
    Height = 12
    AutoSize = True
    Picture.Data = 
{
      07544269746D617092000000424D920000000000000062000000280000000700
      00000C000000010004000000000030000000120B0000120B00000B0000000B00
      0000F4D7BE00F8E6D600F6DFCB00F5DAC200EAD2BF00FCF5EE00FEFBF800FAED
      E200BE796B00FFFFFF0000000000888888804444444000000000333333302222
      222011111110777777705555555066666660999999908888888088888880}
    Visible = False
  end
  object imgShapeBG: TImage
    Left = 280
    Top = 48
    Width = 3
    Height = 56
    AutoSize = True
    Picture.Data = 
{
      07544269746D6170DA010000424DDA01000000000000FA000000280000000300
      0000380000000100080000000000E0000000120B0000120B0000310000003100
      000000000000FFFFFF00FFFCFC00FFFDFD00FFF9F800FFFAF900FFFBFA00FFF6
      F300FFF7F400FFF9F700FFFCFB00FFF0EA00FFF3EE00FFF5F100FFFAF800FFE5
      D900FFE7DC00FFE9DF00FFEBE200FFEDE500FFEEE600FFEFE800FFF0E900FFF2
      EC00FFF4EF00FFF6F200FFF8F500FFE5D800FFE6D900FFE6DA00FFE7DB00FFE8
      DC00FFE8DD00FFE9DE00FFEAE000FFEBE100FFECE300FFEDE400FFEFE700FFF1
      EA00FFF3ED00FFF5F000FFF7F300FFF9F600FFFBF900FFFDFC00FFE9DD00FFEC
      E200FFF2EB001B1B1B000F0F0F001C1C1C001D1D1D001D1D1D001E1E1E001E1E
      1E00101010001F1F1F00202020002E2E2E002121210011111100222222002222
      220023232300121212002F2F2F00242424002525250013131300141414001414
      14002626260015151500161616000B0B0B002727270030303000171717002828
      28000C0C0C001818180018181800292929000D0D0D0019191900070707002A2A
      2A00080808001A1A1A001A1A1A002B2B2B0009090900040404000E0E0E000505
      05002C2C2C0006060600060606000A0A0A000A0A0A00020202002D2D2D000303
      030003030300}
    Visible = False
  end
  object SpeedButton1: TSpeedButton
    Left = 323
    Top = 16
    Width = 14
    Height = 14
    Anchors = [akTop, akRight]
    Flat = True
    Glyph.Data = 
{
      8A000000424D8A00000000000000420000002800000009000000090000000100
      04000000000048000000120B0000120B00000300000003000000BE604200FFFF
      FF00000000001111111110000200100111001000111110001000100010011100
      0001100010001110001110001100110000011000111010001000100011001001
      1100100010001111111110001001}
    OnClick = SpeedButton1Click
  end
  object Label1: TLabel
    Left = 16
    Top = 24
    Width = 60
    Height = 12
    Caption =
 '快捷键提示'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 
'宋体'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 16
    Top = 99
    Width = 294
    Height = 12
    Caption = 
'A:光标在“编号”列时,切换数据类型为“步骤类型”'
    Transparent = True
  end
  object Label3: TLabel
    Left = 16
    Top = 118
    Width = 318
    Height = 12
    Caption = 
'B:光标在“编号”列时,切换数据类型为“工艺要求类型”'
    Transparent = True
  end
  object Label4: TLabel
    Left = 16
    Top = 138
    Width = 294
    Height = 12
    Caption = 
'C:光标在“编号”列时,切换数据类型为“用料类型”'
    Transparent = True
  end
  object Label5: TLabel
    Left = 16
    Top = 42
    Width = 132
    Height = 12
    Caption = 
'Alt+↓:打开下拉列表框'


Transparent = True
  end
  object Label6: TLabel
    Left = 16
    Top = 61
    Width = 108
    Height = 12
    Caption = 'Ctrl+Ins:插入一行'
    Transparent = True
  end
  object Label7: TLabel
    Left = 16
    Top = 80
    Width = 120
    Height = 12
    Caption =
 'Ctrl+Del:删除当前行'
    Transparent = True
  end
  object Label8: TLabel
    Left = 174
    Top = 42
    Width = 138
    Height = 12
    Caption = 
'Ins:打开“工艺名称表”'
    Transparent = True
  end
  object Label9: TLabel
    Left = 174
    Top = 61
    Width = 90
    Height = 12
    Caption = 
'F11:插入“℃”'
    Transparent = True
  end
  object Label10: TLabel
    Left = 174
    Top = 80
    Width = 90
    Height = 12
    Caption = 
'F12:插入“′”'
    Transparent = True
  end
  object Label11: TLabel
    Left = 0
    Top = 165
    Width = 343
    Height = 3
    Cursor = crSizeNS
    Align = alBottom
    AutoSize = False
    Transparent = True
    OnMouseDown = Label11MouseDown
    OnMouseMove = Label11MouseMove
  end
  object Label12: TLabel
    Left = 0
    Top = 12
    Width = 3
    Height = 153
    Cursor = crSizeWE
    Align = alLeft
    AutoSize = False
    Transparent = True
    OnMouseDown = Label12MouseDown
  end
  object Label13: TLabel
    Left = 340
    Top = 12
    Width = 3
    Height = 153
    Cursor = crSizeWE
    Align = alRight
    AutoSize = False
    Transparent = True
    OnMouseDown = Label13MouseDown
  end
end

 代码formPSHotKey.pas内容 unit formPSHotKey; 

interface 

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

{========================================================================
  DESIGN BY :  彭国辉
  DATE:        2004-10-28
  SITE:        
http://kacarton.yeah.net/
  BLOG:        http://blog.youkuaiyun.com/nhconch
  EMAIL:       kacarton@sohu.com

  文章为作者原创,转载前请先与本人联系,转载请注明文章出处、保留作者信息,谢谢支持!
=========================================================================}

type 
  TfrmPSHotKey = class(TForm) 
    imgTitleBar: TImage; 
    imgTitleBarBG: TImage; 
    imgShapeBG: TImage; 
    SpeedButton1: TSpeedButton; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label5: TLabel; 
    Label6: TLabel; 
    Label7: TLabel; 
    Label8: TLabel; 
    Label9: TLabel; 
    Label10: TLabel; 
    Label11: TLabel; 
    Label12: TLabel; 
    Label13: TLabel; 
    procedure FormPaint(Sender: TObject); 
    procedure imgTitleBarMouseDown(Sender: TObject; Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
    procedure FormCreate(Sender: TObject); 
    procedure SpeedButton1Click(Sender: TObject); 
    procedure Label11MouseDown(Sender: TObject; Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
    procedure FormResize(Sender: TObject); 
    procedure Label12MouseDown(Sender: TObject; Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
    procedure Label13MouseDown(Sender: TObject; Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
    procedure imgTitleBarMouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure Label11MouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
  private 
    { Private declarations } 
  public 
   
 { Public declarations } 
  end; 

var 
  frmPSHotKey: TfrmPSHotKey; 

implementation 

{$R *.dfm} 

procedure TfrmPSHotKey.FormCreate(Sender: TObject); 
begin 
    Tag := Height; 
    Height := 16; 
    //定位到屏幕右下角
    Top := Screen.Height - 40; 
    Left := Screen.Width - Width - 2; 
    Show; 
    //从屏幕右下角逐渐弹出
    while Height<Tag do begin 
        Height := Height + 5; 
        Top := Top - 5; 
        Update; 
        Application.ProcessMessages; 
        Sleep(10); 
    end; 
    Height := Tag; 
    Tag := 0; 
    Color := $F4BA9D; 
    FormResize(Sender); 
end; 

procedure TfrmPSHotKey.FormPaint(Sender: TObject); 
var 
    i: integer; 
    rgn: HRGN; 
    r: TRect; 
begin 
    with Canvas do begin 
        //利用imgTitleBarBG绘制标题背景
        for i:=0 to ClientWidth div imgTitleBarBG.Width do 
            Draw(i*imgTitleBarBG.Width, 0, imgTitleBarBG.Picture.Bitmap); 
        if Tag<>0 then Exit;  //如果窗体正在弹出状态,不绘制内容面板背景
        //绘制内容面板背景
        SetRect(r, 5, 15, Width-5, Height-5); 
        StretchDraw(r, imgShapeBG.Picture.Bitmap); 

        Pen.Color := $C97F55; 
        Brush.Style := bsClear; 
        RoundRect(r.Left, r.Top, r.Right, r.Bottom, 6, 6); 
        //绘制窗体边框
        rgn := CreateRectRgn(0,0,0,0); 
        GetWindowRgn(Self.Handle, rgn); 
        Brush.Color := $BE796B; 
        windows.FrameRgn(Handle, rgn, Brush.Handle, 2, 2); 
        DeleteObject(rgn); 
    end; 
end; 

procedure TfrmPSHotKey.imgTitleBarMouseDown(Sender: TObject; 
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
    //在标题按下鼠标键时,允许移动窗体或改变窗体大小
    ReleaseCapture; 
    if X < 5 then Perform(WM_SYSCOMMAND, $F004, 0) 
    else if X > Width - 5 then Perform(WM_SYSCOMMAND, $F005, 0) 
    else if Y < 3 then Perform(WM_SYSCOMMAND, $F003, 0) 
    else Perform(WM_SYSCOMMAND, $F012, 0); 
end; 

procedure TfrmPSHotKey.FormResize(Sender: TObject); 
var 
    rgn, rgn2: HRGN; 
begin 
    if Tag<>0 then Exit; 
    //窗体改变大小时重建Rgn
    rgn := CreateRoundRectRgn(0, 0, Width+1, Height, 4, 4); 
    rgn2 := CreateRectRgn(0, 11, Width, Height); 
    CombineRgn(rgn, rgn, rgn2, RGN_OR); 
    SetWindowRgn(Handle, rgn, True); 
    DeleteObject(rgn); 
    DeleteObject(rgn2); 
    Invalidate; 
end; 

procedure TfrmPSHotKey.SpeedButton1Click(Sender: TObject); 
begin 
    Close; 
end; 

//以下几个Label用来改变窗体大小
procedure TfrmPSHotKey.Label11MouseDown(Sender: TObject; 
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
    ReleaseCapture; 
    if X < 5 then Perform(WM_SYSCOMMAND, $F007, 0) 
    else if X > Width - 5 then Perform(WM_SYSCOMMAND, $F008, 0) 
    else Perform(WM_SYSCOMMAND, $F006, 0); 
end; 

procedure TfrmPSHotKey.Label12MouseDown(Sender: TObject; 
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
    ReleaseCapture; 
    Perform(WM_SYSCOMMAND, $F001, 0); 
end; 

procedure TfrmPSHotKey.Label13MouseDown(Sender: TObject; 
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
    ReleaseCapture; 
    Perform(WM_SYSCOMMAND, $F002, 0); 
end; 

//下面代码判断鼠标所在位置,并改变鼠标光标,提示用户可以拖动窗体或改变大小
procedure TfrmPSHotKey.imgTitleBarMouseMove(Sender: TObject; 
  Shift: TShiftState; X, Y: Integer); 
begin 
    if X < 5 then imgTitleBar.Cursor := crSizeNWSE 
    else if X > Width - 5 then imgTitleBar.Cursor := crSizeNESW 
    else if Y < 3 then imgTitleBar.Cursor := crSizeNS 
    else imgTitleBar.Cursor := crSizeAll; 
end; 

procedure TfrmPSHotKey.Label11MouseMove(Sender: TObject; 
  Shift: TShiftState; X, Y: Integer); 
begin 
    if X < 5 then Label11.Cursor := crSizeNESW 
    else if X > Width - 5 then Label11.Cursor := crSizeNWSE 
    else Label11.Cursor := crSizeNS; 
end; 

end.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值