English
资源说明：在Delphi编程环境中，ListBox控件是常用的用户界面元素，用于显示一列可选择的文本项。默认情况下，ListBox控件的每一项都在一行内显示，如果文本过长，可能会被截断。本主题将深入探讨如何实现ListBox控件的折行显示，使长文本能在多行中展示，提高用户体验。
首先，我们需要理解ListBox的基础属性和方法。在Delphi中，ListBox控件主要由以下几个关键属性控制：
1. `Items`: 这个属性包含了ListBox中所有的项，可以通过它来添加、删除或访问列表中的项。
2. `Style`: 该属性定义了ListBox的样式，如`lbSimple`（单选）或`lbMultiple`（多选）。对于折行显示，我们关注的是`lbOwnerDrawFixed`样式，因为这个样式允许我们自定义项的绘制方式。
3. `ItemHeight`: 指定每个列表项的高度，我们需要调整此值以适应多行文本。
4. `Canvas`: ListBox的Canvas对象提供了绘图接口，我们可以利用它来在ListBox项上绘制文本。
实现折行显示的关键在于使用`OnDrawItem`事件。这个事件在ListBox需要绘制一个项时触发，我们可以在这里自定义绘制逻辑，包括处理文本的换行。
以下是一个基本的`OnDrawItem`事件处理程序示例：
```delphi
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
TextWidth, TextHeight: Integer;
Text: string;
begin
with ListBox1 do
begin
if odSelected in State then
Canvas.Brush.Color := clHighlight
else
Canvas.Brush.Color := clWindow;
Canvas.FillRect(Rect);
Text := Items[Index];
// 计算文本宽度
TextWidth := Canvas.TextWidth(Text);
if TextWidth > Rect.Width then
begin
// 如果文本过宽，计算其高度
TextHeight := Canvas.TextHeight(Text);
// 调整Rect的高度以适应多行
Rect.Height := TextHeight * (1 + Ceil((TextWidth - Rect.Width) / ListBox1.ItemWidth));
// 使用WordWrap绘制文本
Canvas.TextOut(Rect.Left, Rect.Top, Text, [tfWordBreak]);
end
else
// 如果文本不长，直接绘制
Canvas.TextOut(Rect.Left, Rect.Top, Text);
end;
end;
```
在这个例子中，我们首先检查文本是否超过了列表项的宽度。如果是，我们计算出需要的行数，然后调整Rect的高度以适应这些行。最后，使用`Canvas.TextOut`函数并设置`tfWordBreak`标志，使得文本能根据矩形边界自动换行。
注意，为了使`OnDrawItem`事件触发，你需要确保ListBox的`Style`属性为`lbOwnerDrawFixed`，并且`DrawMode`属性设置为`dmAutomatic`。
此外，可能还需要处理一些其他细节，例如字体大小和颜色的调整，以及高亮选中项的显示等。你可以根据具体需求调整代码以满足不同场景。
总的来说，通过自定义ListBox的绘制过程，我们能够实现列表项的折行显示，从而更好地展示长文本，提高用户的阅读体验。这个过程涉及到对Delphi的控件绘制机制的理解，以及熟练运用Canvas对象进行图形操作。
本源码包内暂不包含可直接显示的源代码文件，请下载源码包。
