制作像MSN、QQ那样的消息提示框收藏(Delphi)

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

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

　　当然界面可以偷，代码就得老老实实的写的了，下面是界面设计图和实现代码：
　　　　快捷键提示窗的设计图
　界面formPSHotKey.dfm内容　［内容较长，请点击此处找开/折叠］

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.csdn.net/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 Heightdo 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.

{ 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 Heightdo 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.
http://blog.csdn.net/nhconch/archive/2004/12/04/204816.aspx
（完）[@more@]http://blog.csdn.net/nhconch/archive/2004/12/04/204816.aspx

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/93029/viewspace-1017251/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/93029/viewspace-1017251/

congdou2006
关注
DELPHI7实现QQ/MSN消息提示框
10-13
实现QQ/MSN屏幕右下角消息提示框(AnimateWindow) 弹出方式：自上而下、淡入淡出、自中间向四周、从右到左。
DELPHI7实现QQ/MSN消息弹出框
10-13
仿造QQ/MSN屏幕右下角消息提示框(AnimateWindow) 消息框弹出方式：上下弹出、淡入淡出、自中间想四周、左右弹出。
Delphi中用API实现在MSN的信息提示 [Delphi/Kylix]
我的IT之旅
06-02 181
我是比较喜欢用MSN的，因为它的信息提示比较独特，所有的聊天软件都是弹出一个常规的WINDOWS对话框，而它却好像是从任务栏里冒出来的。想想了，在DELPHI这样的纯OOP工具里加一个API应该不难实现，花了十来分钟终于搞出来了，以下是实现方法： 　　1、建立一个APPLICATION，将两个按钮放置到主窗体FROM1中，分别为button1和button2。 ...
QQTip，仿QQ右下角提示窗口的Delphi源程序
05-07
内容索引:Delphi源码,界面编程,右下角,弹出窗口　　QQTip，仿QQ右下角提示窗口的Delphi源程序，运行程序后即在右下角弹出一提示窗口，严格来说不是弹出，而是滑出来，由下到上滑出，带关闭功能。同时本窗口有两种生成方法：一是显示TipTimer法，二是显示Tips循环法，两种方法有不同的表现，这个就根据自己而定了，对两种方法感兴趣的朋友，也可好好看看代码啦。
用Delphi做个类似MSN/QQ的通信工具
飞天城堡
09-16 2148
       很早以前就想做个实时聊天的工具了，不过人很懒，一直没有什么动力，前两天刚好有个产品里面需要这么一个东东，所以就花了点力气研究了一下。       一直以来我都认为Delphi是个很不错的东西，虽然有时候有些莫名其妙的BUG，不过确实很适合我们这种懒人来使用，所以客户端首选Delphi。在做设计的时候，考虑到是企业应用，有些什么防火墙之类的处理起来麻烦，所以决定，利用http协议走80
MSNPopUp
06-21
MSNPopUp是一个在DELPHI开发环境中使用的控件，它模仿了QQ的提示框效果，为用户提供了一种简洁、直观且吸引人的信息提示方式。这款控件以其易于使用和高度自定义的特点，在开发桌面应用程序时，能够极大地提升用户...
JAVA上百实例源码以及开源项目源代码
12-11
Java zip压缩包查看程序源码 1个目标文件 摘要:Java源码,文件操作,压缩包查看 Java zip压缩包查看程序，应用弹出文件选择框，选择ZIP格式的压缩文件，可以像Winrar软件一样查看压缩文件内部的文件及文件夹，源码...
vc++ 应用源码包_1
09-15
利用Delphi的代码在VC中显示JPG图片，不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框...
技术散分:Delphi中用API实现在MSN的信息提示
aibi9196的博客
10-28 111
技术散分:Delphi中用API实现在MSN的信息提示 Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiNetwork/html/delphi_20061211171215149.html 我是比较喜欢用MSN的，因为它的信息提示比较独特，所有的聊天软件都是弹出一个常规的Windows对话框，而它却好像是从任务栏里冒出来...
Delphi TMsnPopup 控件代码，仿MSN提示窗口.rar
07-10
Delphi TMsnPopup 控件代码，仿MSN提示窗口，用来在Delphi中实现提示框的小控件，下载包内是代码，没有包括示例。文件列表：MsnPopup.dcr、MsnPopup.pas。
delphi2010实现弹出MSNPopup提示框示例代码
07-05
实现Windows XP/7等操作系统桌面右下角弹出类似MSN的popup提示框，可定时自动关闭，自动叠加显示，自定义背景图片等。使用了DELPHI盒子(2ccc)的MSNPopup 5.0的组件，修改了背景颜色(图片)不能填满窗体的bug。压缩包文件是完整的delphi2010的工程代码。
MSN风格弹出信息框窗体组件
05-13
无闪烁MSN风格弹出信息框窗体组件，直接放到Form上，Form自动变成MSN风格，与Msnpopup组件相比实用性更强，可在Form上放置任何控件。无源码仅可在D6下使用。也可以改到delphi 2007使用
DELPHI 7设计的通讯聊天界面仿QQ聊天（参考）
吹口哨的兔子
03-14 1799
界面代码共享地址： https://download.csdn.net/download/z123191456/11018709 特别用的控件
delphi 可移动矩形框
genispan的专栏
03-17 2195
unit   Unit1;     interface       uses        Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,        Dialogs;       type        TForm1   =   class(TForm)      
收起来，有空再看。与 (MSN效果的API)
luoyanqing119的专栏
03-21 685
http://www.delphibbs.com/keylife/iblog_show.asp?xid=33357 http://www.delphibbs.com/keylife/iblog_show.asp?xid=261  //=================================================== Private Declare F
delphi 高仿微信气泡聊天窗口
最新发布
musa2008的专栏
12-31 394
Delphi 仿微信IM，气泡聊天窗口，websocket，欢迎交流学习。
做出像Foxmail、MSN的消息窗体的效果
caaclxf的专栏
09-10 977
  Procedure TForm1.FormCreate(Sender: TObject);Begin  Form1.Top := Screen.Height;  Form1.Left := Screen.Width - Form1.Width;  SysTmrTimer.Enabled := True;End;Procedure TForm1.SysTmrTimerTimer(Sender
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值