Delphi字符串列表及应用（二）（转）-白红宇

Delphi字符串列表及应用（二）（转）

阅读量：2496 次

发布时间：2019-05-11

本文共 4930 字，大约阅读时间需要 16 分钟。

Delphi字符串列表及应用（二）：

3.1.4 往字符串列表中加入对象　Strings属性中贮存字符串外，还可以在Objects属性中贮存对象。与Stings一样，Objects也是可以索引的，它是对象的索引。Objects中的内容不变，Delphi只是保存了这些信息，应用程序在必要时对其进行操作。TMemo部件中代表行的列表对加入其中的对象不保存。还有一些字符串列表，把对象与字符串联系起来，如TNotebook部件的Pages属性，它同时保存着页的名字和代表页的对象。如果应用程序往Pages中加入或删除字符串，Delphi自动的加入或删除与之相应的对象。Delphi在释放对象的内存空间时并不破坏与之相应的字符串。　

3.1.4.1 操作字符串列表中的对象　Objects，因为Strings才是列表的缺省属性。3.1中总结了字符串对字符串和对象操作的方法。　

表3.1 TStrings的字符串属性和对象操作属性的方法

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　

操作　　　字　符　串　　　　　　　　对　　　象

─────────────────────────────── 访　　问　　　　　Strings属性 Objects属性

　　加入项目　　　　　 Add 方法　　　　　　 AddObjects方法　插入项目　　　　　Insert方法　　　　　　InsertObjects方法

项目定位　　　　 Indexof方法 IndexofObject方法

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　Delete,Clear,More操作整个项目，即删除字符串时把相应的对象也删除了。但LoadFromFile,SaveToFile方法只对字符串进行操作。　

3.1.4.2 加入对象　Delphi将分配给该对象同样的索引号。例如，一个叫Fruits的列表中有字符串('apple')，程序可将名为AppleBitmap的位图与apple字符相联系。　

　　如果把对象与已存在的字符串联系起来，

　　With Fruits do Objects[Indexof('apple')]:=AppleBitmap;　

另一种方法是调用列表的AddObject方法，AddObject有两个参数：字符串和对象，如下：　Fruits AddObject('Apple',AppleBitmap);　

3.2 字符串列表应用　

Delphi应用程序经常要用到字符串列表，我们编写的strlist.dpr是应用字符串列表的简单程序。程序运行状态如图3.2所示。列表框列出了屏幕支持的各种字体名称，并且以名称所代表的字体显示在列表中；Tabs的标签不只以字符串来表示，而且附有位图。这就是所谓的自画式控制。下面介绍字符串列表在自画式控制中的应用。

列表框、组合框、Tabset部件中有一个叫“自画(Ownerdraw)”的风格，它能替代Windows的文本输出，部件的自画式控制在运行状态对每个项目进行重新绘制。最常用的是用图像代替文本输出。Windows把它们当成文本显示。Delphi可以把字符串列表与某一对象相联系，这就使得应用程序能用对象来绘制项目。1. 设置自画风格；2. 把图像对象加入字符串列表中；3. 绘制自画项目。　

3.2.1 设置自画风格　Style的属性，Style决定部件是以缺省方式还是以自画方式绘制项目。3.2列出了Style的取值及含义。　

表3.2 Style的取值及含义

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　Style 含　　义　　　　　　　　举　　　例

─────────────────────────────────Fixed 每个项目有相同的高度　　 1bOwnerDrawFixed

Varible 每个项目有不同的高度　　　

1bOwnweDrawVarible

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　tab-set与字符串网格的Style属性通常是Varible.

在Strlist程序中，列表框与tab-set取值如表3.3：　

表3.3 列表框与tab-set的取值

━━━━━━━━━━━━━━━━━━━━━━━━━━style

　　　　名称　　　　　　　　　

──────────────────────────

ListBox1 lbOwnerDrawVariable

Tabset1 tsOwnerDrawVariable

━━━━━━━━━━━━━━━━━━━━━━━━━━━

3.2.2 把图像加入字符串列表　Tabset1的Tabs中：　

procedure TForm1.FormCreate(Sender: TObject);

var

Bitmap: TBitMap;

begin

Listbox1.Items := Screen.Fonts;

Bitmap := TBitmap.Create;

Bitmap.LoadFromFile('PHONE.BMP');

Tabset1.Tabs.AddObject('phone',Bitmap);

Bitmap := TBitmap.Create;

Bitmap.LoadFromFile('PRINTER.BMP');

Tabset1.Tabs.AddObject('printer ',Bitmap);

end;　

3.2.3 绘制自画项目　Style属性是自画式时，Windows不再绘制部件，相反Windows为每个可视项目产生事件，而应用程序必须在事件中绘制项目。Windows产生测量项目事件，这个事件告诉程序项目显示的位置。Windows决定项目显示的大小，但应用程序可以处理这个事件并自己选择显示区域。例如，程序要用位图代替文本显示，则需要把区域设置成位图的大小。测量项目事件的名称随部件的名称不同而不同，对于列表框和组合框，该事件叫OnMeasureItem。对于Tabset，该事件叫OnMeasureTab。

　　当部件的

　　在应用程序绘制自画控制之前，

　　通常由

　　测量项目事件有两个重要参数: 项目索引号与项目的大小。这个大小是变化的。后继项目的输出位置由前面项目的大小决定。例如，在自画式列表框中，如果应用程序把第一个项目的高度设置成5个象素点，则第二个项目在第六个象素点开始输出。列表框和组合框中，应用程序只能设置成项目的高度，而项目的宽度就是部件的高度。在Tabset中，tabs的宽度是可变的，而高度则是固定的。自画式网格允许应用程序改变网格单元的高度和宽度。OnMeasureItem的声明如下：

ListBox1 MeasureItem(Control: TwinControl;Index: Integer; var Height: Integer);

　　例程中响应

procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;

var Height: Integer);

begin

with ListBox1.Canvas do

begin

Font.Name := ListBox1.Items[Index];

Height := TextHeight('A');

end;

procedure TForm1.TabSetMeasureTab(Sender: TObject; Index: Integer;

var TabWidth: Integer);