Delphi 常用技巧
在网上行走时，经常会看到弹出的桌面小窗体，有时做广告，有时向你致以节日的问候；
人们称其为桌面小精灵；有的桌面小精灵会自动移动，有的固定在屏幕的某一角落，动画
闪烁，煞是迷人。本人用

Delphi 制作了一款桌面小精灵，愿与大家共享。

桌面小精灵的实现功能：当运行时，在屏幕的左下角显示一无边框、无标题栏的小窗体，并
自动向屏幕的右上角移动，窗体上的小精灵

——可爱的马先生，一会跃起，高呼“马 

到成功！

”，一会含情脉脉地向你招手“再见”；同时，还不断地闪烁显示当前时间，时刻提

醒你抓紧时间呦！当你嫌它碍事时，你可以按下鼠标左键，将它拖到任意位置。如果你厌烦
它不停移动，你可以双击鼠标左键，它会老老实实地呆在原地不动，只要你用鼠标轻轻一
点，它又会高高兴兴地上路，当你单击

“再见”时，桌面小精灵就会消失，你不想一试身手

吗？请跟我来！
运行后效果图
　　生成一窗体，设置窗体属性如下：

Name 属性为 Form1，BorderStyle 属性为

bsNone，FormStyle 属性为 StyOnTop，Height 属性值 240，Width 属性值 209。
　　　窗体上分别添加组件，设置属性如下：
　　

(1)添加两个 Image 组件，Name 属性分别设为 Image1、Image2，Align 属性均设为

alClient (以使 Image 组件充满整个窗体)，Image1 的 Enabled 为 False，Image2 的 Enabled 为
True，然后通过 Picture 属性为 Image1、Image2 添加图片(适合的图片格式：BMP、JPG )。
　　

(2)在 Image 上再添加两个 Timer 组件，Name 属性分别为 Timer1、Timer2，Enabled 属性

均为

True，Interval 属性均为 1000 毫秒。

　　

(3)在 Image 上再添加一个 Label 组件，Name：=Label1，Caption：=“马到成功！”，

Enabled：=True，Font 属性为“华文行楷，粗斜体，三号字，红色”(根据你的图片设置适当
的字体、字号、字体颜色

)。

　　

(4)在 Image 上再添加一个 Panel 组件，设置属性：Name:=Panel1。

　　

Caption:=时间；Color:=clBlue ; Font 设为：华文彩云、三号、黄色。

　　添加源代码如下：
　　

//用 Timer1 控制两图片、标签及时间的显示

　　

procedure TForm1.Timer1Timer(Sender: TObject);

　　

begin

　　

if (form1.Image1.Visible =true) then

　　　

begin

　　　

Image1.Visible :=false ;

　　　

Image2.Visible :=true ;

　　　

Label1.Visible :=false;

　　　

panel1.Caption :='再见!';

　　　

end

　　

else

　　　

begin

　　　

Image1.Visible :=true;

　　　

Image2.Visible :=false;

　　　

Label1.visible:=true;

　　　

panel1.caption :=timetostr(time());

　　　

end;

　　

end;