Delphi常用技巧帮助.docVIP

Delphi常用技巧帮助 | 留言交流 | 登录 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; 　　//用Timer2控制窗体的移动 　　procedure TForm1.Timer2Timer(Sender: TObject); 　　begin 　　if form1.Leftgt;=750 then 　　　begin 　　　form1.Top :=350; 　　　form1.Left:=0; 　　　end 　　else 　　　form1.Left:=form1.Left+5; 　　　form1.Top :=form1.Top -3; 　　en