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

  • 主题发起人 主题发起人 阳光下的水滴
  • 开始时间 开始时间

阳光下的水滴

Unregistered / Unconfirmed
GUEST, unregistred user!
是由下之上慢慢移上的,如何实现呢???
 
我也想知道
 
想做一直没做出来,关注
 
FoxMail也是这样的,我也问过!
 
你生成一个窗体,然后控制他显示的位置和显示效果不就可以了么?
 
楼上的,按你那方法作出来的form象鼻涕虫,又慢又拖,间格长点象蚂蚱,一跳一跳的。
 
在OnShow中用SetWindowPos来设定窗口的位置.
 
animatewindow
一个api函数
 
去www.codeguru.com上找,我在其上就下了一个,很不错。
 
一看E就头大了。还有没有别的啊。
 
我也想知道?
 
在窗体的ONSHOW事件中加入
AnimateWindow(Self.Handle, 1250, AW_VER_NEGATIVE or AW_ACTIVATE);
 
同意jishui的
 
但是和msn的还是不一样的,我还不知道怎么做的一样,他好象是先生成,再自动拖动的,有没哪位教我呀
 
我做了一個,大家看看,提提意見.
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 or AW_ACTIVATE);
end;

procedure TForm1.FormClick(Sender: TObject);
begin
with form1do
begin
while height>0do
begin
top:=top+5;
height:=height-5;
end;
end;
close;
end;
 
可以用THintWindow来实现类似的功能,创建以后可以指定其背景色,延时,显示的文字,宽度等
,也可以指定创建的x,y值。很灵活的。[:D]
 
AnimateWindow 这个API,好像在98下无效吧?
 

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
后退
顶部