如何做出像Foxmail、MSN的消息窗体的效果

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