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

to 粗心大意
能说详细点吗？

我有一个，要不？

to lcl_003:
給我:
chinakama@hotmail.com

发了

AnimateWindow 好像只有win2000及以上的系统才有

to lcl_003:
也給我一份:
linxian163@163.com

有个picshow的控件，改一下就可以用了。

to 粗心大意
能说详细点吗？

各位实在不好意思，我现在在公司，所以没时间详细解释。我这里有THitWindow的源代码，谁要的
请留下信箱，我会发给大家。

我想要一份，我的邮箱：wjx304@163.com 谢谢！

粗心大意:
给我一份，谢谢。
hpbj@sina.com

realyanyan@sohu.com
谢谢
THitWindow是组件吗？

粗心大意
flyingdae@163.com
谢谢

fuqiming@vip.sina.com

class
TNotifyIconDataEx = record
cbSize: DWORD;
Wnd: HWND;
uID: UINT;
uFlags: UINT;
uCallbackMessage: UINT;
hIcon: HICON;
// szTip: array[0..63] of AnsiChar;
szTip: array[0..127] of AnsiChar;
// 0..63 of WideChar in stead?
dwState: DWORD;
dwStateMask: DWORD;
szInfo: array[0..255] of AnsiChar;
uTimeout: UINT;
// union with uVersion: UINT;
szInfoTitle: array[0..63] of AnsiChar;
dwInfoFlags: DWORD;
end;

TBalloonHintIcon = (bitNone, bitInfo, bitWarning, bitError);
TBalloonHintTimeOut = 10..60;
// Windows defines 10-60 secs. as min-max
private
IconData: TNotifyIconDataEx;
// Data of the tray icon wnd.
implementation
procedure ShowBalloonHint(Title: String;
Text: String;
IconType: TBalloonHintIcon;
TimeoutSecs: TBalloonHintTimeOut): Boolean;
const
aBalloonIconTypes: array[TBalloonHintIcon] of Byte =
(_NIIF_NONE, _NIIF_INFO, _NIIF_WARNING, _NIIF_ERROR);
begin
begin
with IconDatado
begin
uFlags := uFlags or _NIF_INFO;
StrPCopy(szInfo, '');
end;
with IconDatado
begin
uFlags := uFlags or _NIF_INFO;
StrPCopy(szInfo, Text);
StrPCopy(szInfoTitle, Title);
uTimeout := TimeoutSecs * 1000;
dwInfoFlags := aBalloonIconTypes[IconType];
end;
Shell_NotifyIcon(NIM_MODIFY, @IconData);
end;

创建一个窗体，设置位置在右下角，循环的把窗体的高度增加。

hj5k说话蛮幽默！

to 粗心大意
顺便也给份我吧
chenge1980@msn.com

genue
你的那个看不懂啊。。。。。

来晚了，请给我一份吧？