围观窗体与组件02 - 零基础入门学习Delphi024

冬雪雪冬

文本型控件包括Label，StaticText和TabControl,PageConTrol。实际上后两个不能算文本控件。StaticText的功能基本与Label相同，只是它有窗口句柄，是窗口型文本控件。当组件的快捷键必须属于窗口型组件的时候，应该使用StaticText 组件，而不能使用Label 组件。----不明白！

TabControl, PageControl都是容器型控件，但TabControl每个页面上控件都是相同的，不知道它到底有什么作用。

PageControl就好用多了，每个页面可以放置不同的内容。

小甲鱼的例题是用PageControl做的，主要功能是按图片就打开相应的网页，label的内容会从左到右逐渐显示。

打开网页需要一个windows的API：

ShellExecute(Application.Handle,nil,

  '网址',

  nil, nil, SW_SHOWNORMAL);

首先要在user中加入ShellAPI

label内容的显示，小甲鱼是用数组来完成的，我改用Copy做的。

主要程序：

1. implementation
   
2. 
   
3. {$R *.dfm}
   
4. var
   
5.   str1, str2: String;
   
6.   i, j: integer;
   
7. 
   
8. procedure TForm1.Image1Click(Sender: TObject);
   
9. begin
   
10.   ShellExecute(Application.Handle, nil,
    
11.   'http://bbs.fishc.com/forum-173-1.html',
    
12.   nil, nil, SW_SHOWNORMAL);
    
13. end;
    
14. 
    
15. procedure TForm1.Image2Click(Sender: TObject);
    
16. begin
    
17.   ShellExecute(Application.Handle, nil,
    
18.   'http://bbs.fishc.com/forum-38-1.html',
    
19.   nil, nil, SW_SHOWNORMAL);
    
20. end;
    
21. 
    
22. procedure TForm1.Image3Click(Sender: TObject);
    
23. begin
    
24.   ShellExecute(Application.Handle, nil,
    
25.   'http://bbs.fishc.com/forum-33-1.html',
    
26.   nil, nil, SW_SHOWNORMAL);
    
27. end;
    
28. 
    
29. procedure TForm1.Timer1Timer(Sender: TObject);
    
30. begin
    
31.   if i > length(str1) then
    
32.     i:= 2;
    
33.   if j > length(str2) then
    
34.     j:= 2;
    
35.   label1.Caption:= Copy(Str1, 1, i);
    
36.   Label2.Caption:= Copy(str2, 1, j);
    
37.   i:= i + 2;
    
38.   j:= j + 2;
    
39. end;
    
40. 
    
41. procedure TForm1.FormCreate(Sender: TObject);
    
42. begin
    
43.   str1:= '动态字符串的演示效果。';
    
44.   str2:= '与小甲鱼一起学习编程，边看边学。';
    
45.   i:= 2;
    
46.   j:= 2;
    
47. end;
    

复制代码

不多太少

不错 不错 我也是用的Copy

13328593595

不多太少 发表于 2018-2-25 09:15
不错 不错 我也是用的Copy

完全不明白啊

13328593595

API在哪啊，哪位大佬告诉我一下