阶段性上机实践（小结）02- 零基础入门学习Delphi 011

冬雪雪冬

本课是编写两个屏保程序。
V 1.00版运行时，屏幕都被程序覆盖，并将截图的桌面占据整个窗口，以欺骗用户，另有一个霓虹灯的窗口随机在桌面移动，当按下空格键时，显示edit和button控件，用以输入密码，密码正确，结束程序。
首先，form设置Borderstyle为bsNone，这样就没有标题条和最大最小按钮和边框了。设置windowstate为wsMaximized使窗口最大化。
加入一个image控件放置图片，课程中是将image的width和height设置成600和800，可以采用另一个方法，把image的align从alNone改为alClient，这样就充满整个窗口了，也不用设置左上角的位置了。另我的图片与屏幕的分辨率不同，再把stretch改为True，使之自动伸缩。
另外就是放一个label做霓虹灯效果，由于霓虹灯的练习前面已经做过，我这里改成label中内容向前滚动的效果。
建立一个timer控件，并将label.Caption的内容每次去掉前2个（一个汉字）再补到字符串的最后。

1. procedure TForm1.Timer1Timer(Sender: TObject);
   
2. 
   
3. begin
   
4.   s := Label1.Caption;
   
5.   Delete(s, 1, 2);
   
6.   s1 := Copy(Label1.Caption, 1, 2);
   
7.   Label1.Caption := s + s1
   
8. end;
   

复制代码

建立edit和button控件用以输入密码，并将其visible设置为False。
为接收键盘输入，使用form的onkeydown事件，如果key=VK_SPACE则edit和button的visible改为True。
V2.0版做如下改进：
窗口置顶：
在timer中加入
SetWindowPos(handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE+SWP_NOMOVE);
或设置form的FormStyle属性为fsStayOnTop，我不知道这两者的差别，不幸的是，在wind10下，即使置顶，仍可按win键调出任务栏。
密码错误3次等待9s，这里需要另一个timer来计时。
具体程序如下：

1. implementation
   
2. 
   
3. {$R *.dfm}
   
4. Const
   
5.   password : String = 'FishC!';
   
6. Var
   
7.   s, s1 : string;
   
8.   flag : Boolean = True;
   
9.   n : integer = 3;
   
10. 
    
11. procedure TForm1.Timer1Timer(Sender: TObject);
    
12. 
    
13. begin
    
14.   s := Label1.Caption;
    
15.   Delete(s, 1, 2);
    
16.   s1 := Copy(Label1.Caption, 1, 2);
    
17.   Label1.Caption := s + s1;
    
18.   SetWindowPos(handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE+SWP_NOMOVE);
    
19. end;
    
20. 
    
21. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
    
22.   Shift: TShiftState);
    
23. begin
    
24.   if (Key = VK_SPACE) and (flag = True) then
    
25.     begin
    
26.       edit1.Visible := True;
    
27.       button1.Visible := True;
    
28.     end
    
29.   else
    
30.     begin
    
31.       if flag = False then
    
32.         MessageBox(handle, '错误次数太多，等待9s再输入', '警告', MB_OK or MB_ICONSTOP)
    
33.       else
    
34.         MessageBox(handle, '按空格键并输入密码', '提醒', MB_OK or MB_ICONWARNING);
    
35.     end;
    
36. 
    
37. end;
    
38. 
    
39. procedure TForm1.Button1Click(Sender: TObject);
    
40. begin
    
41.   if (edit1.Text = password) and (n > 0) then
    
42.     close
    
43.   else
    
44.     if n > 0 then
    
45.       begin
    
46.         MessageBox(handle, '密码错误', '提醒', MB_OK or MB_ICONWARNING);
    
47.         n := n - 1;
    
48.         edit1.Text := '';
    
49.       end
    
50.     else
    
51.       begin
    
52.         timer2.Enabled := True;
    
53.         edit1.Text := '';
    
54.       end;
    
55. 
    
56.       
    
57. end;
    
58. 
    
59. procedure TForm1.Timer2Timer(Sender: TObject);
    
60. begin
    
61.   flag := True;
    
62.   n := 3;
    
63.   timer1.Enabled := False;
    
64. end;
    
65. 
    
66. end.
    

复制代码

将程序的扩展名改为scr，并放置在c:\windows\system下，则可作为真正的屏保程序来使用。

星之波比

flag那一块不太明白 为什么专门写一个FLAG=FALSE的情况，小甲鱼在下面判断次数同样也是提示需要等待，那就与上面flag=false的情况重复了，而版主在下面判断次数的时候又把Edit框给空白，不提示超过次数 f反而在flag=False的情况提示等待

星之波比

而且我电脑win7置顶 也可以调出win