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

　　微软的每一个产品，无论功能还是界面设计都会带给我们一定的惊喜，比如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