一个简单的问题~~~送分啦~~~(30分)

D

d村长

Unregistered / Unconfirmed
GUEST, unregistred user!
我想写一个窗口程序,向MSN中的消息窗口一样,从屏幕的右下角渐渐的向上移动,
直到,窗口的下部与任务栏之间的距离为0为止,哪位高手可以告我该如何做。
另外哪位可以告诉我怎样得到任务栏的高度
 
可以使用API函数,改天我再贴出来
 
添加一个时钟控件,在里面编写代码!
 
在时钟控件的事件中添加memo滚动的代码
 
Form1.Top := Screen.Height;
for i := 1 to Form1.Height do
begin
Form1.Top := Form1.Top - 1;
Sleep(50);
end;
 

Similar threads

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