msn上当有人登录时会在右下角移出一消息窗体。请问此窗体如何实现???(50分)

  • 主题发起人 主题发起人 阳光下的水滴
  • 开始时间 开始时间
用得着那么麻烦吗?
看看下面的代码行不行:
========================
//伸出来
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.left:=Screen.Width-form1.width;
form1.top:=screen.height-form1.height;
AnimateWindow(Self.Handle, 1250, AW_VER_NEGATIVE+AW_SLIDE );
end;
//缩回去
procedure TForm1.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
AnimateWindow(Self.Handle, 1250, AW_VER_POSITIVE +AW_SLIDE or AW_HIDE );
end;
=========================================
 
我也要THintWindows

blueshrimp@yeah.net
 
to 粗心大意:
能否给我一份THitWindow的源代码???
:)
 
to 粗心大意:
能否给我一份THitWindow的源代码???[:)][:)][:)][:)][:)][:)]
shijianyun@sina.com
 
to 粗心大意:
来晚了,“THitWindow”我有份吗?
email:martin_fu@163.net
 
给我一份 xujin2@sina.com
 
lcl:
send me that file. minikiller@sina.com
thank you
 
哈哈,终于找到这个控件了,功能很不错。谁要啊?
还是告诉大家吧,我上传到www.playicq.com.
The TMsnPopUp component is created to mimic the
behavior of the popup windows that can be seen
in MSN/Windows Messenger from Microsoft. But
it even gets better, because TMsnPopup is
fully customizable, so you can give it your
own look and feel.
搜索tmsnpopup 就可以了
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部