围观窗体与组件05 - 零基础入门学习Delphi029

冬雪雪冬

列表框控件包括ListBox和ComboBox。

ListBox的主要属性：

items也是TStrings类型，即字符串数组，可以有add,clear, delete, insert等属性。

Multiselect可否多选。

ItemIndex被选中项目的索引号

selected某个项目是否被选中

sorted显示项目是否排序

小甲鱼例子中点击不同item打开不同网址的方法是采用查看ListBox1.Selected是否为True再执行代码，我觉得用case加上ItemIndex更方便些。

1. <p class="MsoNormal"><span lang="EN-US">procedure TForm1.ListBox1Click(Sender:
   
2. TObject);<o:p></o:p></span></p>
   
3. 
   
4. <p class="MsoNormal"><span lang="EN-US">begin<o:p></o:p></span></p>
   
5. 
   
6. <p class="MsoNormal"><span lang="EN-US">
   
7. case ListBox1.ItemIndex of<o:p></o:p></span></p>
   
8. 
   
9. <p class="MsoNormal"><span lang="EN-US">   
   
10. 0: Label1.Caption := 'RED';<o:p></o:p></span></p>
    
11. 
    
12. <p class="MsoNormal"><span lang="EN-US">   
    
13. 1: Label1.Caption := 'GREEN';<o:p></o:p></span></p>
    
14. 
    
15. <p class="MsoNormal"><span lang="EN-US">   
    
16. 2: Label1.Caption := 'BLUE';<o:p></o:p></span></p>
    
17. 
    
18. <p class="MsoNormal"><span lang="EN-US">   
    
19. 3: Label1.Caption := 'GARY';<o:p></o:p></span></p>
    
20. 
    
21. <p class="MsoNormal"><span lang="EN-US">
    
22. end;<o:p></o:p></span></p>
    
23. 
    
24. <p class="MsoNormal"><span lang="EN-US">end;</span></p>

复制代码

当然作为特例，如ListBox项目的内容与需要在label显示的内容一样，上面程序还可改为

1. <p class="MsoNormal"><span lang="EN-US">procedure TForm1.ListBox1Click(Sender:
   
2. TObject);<o:p></o:p></span></p>
   
3. 
   
4. <p class="MsoNormal"><span lang="EN-US">begin<o:p></o:p></span></p>
   
5. 
   
6. <p class="MsoNormal"><span lang="EN-US">
   
7. Label1.Caption := ListBox1.Items[ListBox1.ItemIndex];<o:p></o:p></span></p>
   
8. 
   
9. <p class="MsoNormal"><span lang="EN-US">end;</span></p>

复制代码

另打开网址的方法：

1. <span lang="EN-US">ShellExecute(handle, ‘open’, ‘</span><span style="font-family:宋体;mso-ascii-font-family:Calibri;mso-ascii-theme-font:minor-latin;
   
2. mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:
   
3. Calibri;mso-hansi-theme-font:minor-latin">网址</span><span lang="EN-US">’, nil,
   
4. nil, SW_SHOWNORMAL)</span>

复制代码

参数2，在原来小甲鱼的例子中也可以是nil，最后参数是打开窗口最大化最小化正常等。

ComboBox的主要属性：

它相当于edit和ListBox的组合，既可以直接输入，也可以在已有的中间选择。

ItemIndex与ListBox类似，选中的索引号，如果是自己输入，则为-1

DropDowmCount下拉列表的数量，超过则出现滚动条。

Style类型，分为

         csDropDown—可输入可选择

         csSimple—只输入，相当于Edit

         csDropDownList—只选择

         csOwnerDrawFixed—也是只选择，不知与上面的区别

         csOwnerDrawVariable—感觉与上面一样

滑块型控件ScrollBar和TrackBar

ScrollBar的属性：

Kind水平和垂直

Max/Min最大最小值

LargeChange单击滚动条的变化值

SmallChange单击箭头的变化值

Position当前位置

TrackBar 的属性：

Frequency设置两个刻度间隔值，默认为1

Orientation水平或垂直，搞不明白为什么ScrollBar用kind？

LineSize方向键每次移动步长

PageSize PgUp和PgDn移动步长，这两个与ScrollBar的SmallChange和LargeChange一样，干嘛用不同的名字？

SliderVisible 滑块是否可见，滑块不可见时不能用鼠标改变，但可以用键盘改变

小甲鱼最后的例题是消失的苍井空，其实很简单，把Image的Stretch改为True，同步改变Height和width就可以缩放图片，或者把proportional改为True固定宽高比，只改变宽高的一项就行了；改变透明度的知识课上没有讲，我看了小甲鱼的程序并查看了资料，首先将form的AlphaBlend设为True，通过Scroll改变AlphaBlendValue的值，范围为0~255。

13328593595

为啥这些代码我没看懂