procedure tform1.formcreate(sender: tobject);
begin
form1.top := screen.height;
form1.left := screen.width - form1.width;
systmrtimer.enabled := true;
end;
procedure tform1.systmrtimertimer(sender: tobject);//systmrtimer是个timer
begin
//请将interval属性设为10…
form1.top := form1.top - 1;
if form1.top = screen.height - form1.height then
systmrtimer.enabled := false;
end;
end.
结合此文章可以做出更多效果……渐变、透明什么的…
http://blog.csdn.net/greatsuperyoyonc/archive/2004/07/23/50326.aspx
