delphi listbox 宽度自适应

在phi 中，要使 ListBox 的宽度自适应，你可以使用以下方法：

1. 设置 ListBox 的 Width 属性为 0，这将使它的宽度自动调整为适应内容。

ListBox1.Width := 0;

2. 使用 MeasureItem 事件来动态计算 ListBox 中每个项的宽度，并将 ListBox 的 Width 属性设置为最宽项的宽度。

procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
  var Height: Integer);
var
  ItemWidth: Integer;
begin
  // 计算当前项的宽度
  ItemWidth := Canvas.TextWidth(ListBox1.Items[Index]);

  // 更新 ListBox 的 Width 属性
  if ItemWidth > ListBox1.Width then
    ListBox1.Width := ItemWidth;
end;

确保在设计时将 ListBox 的 Style 属性设置为 lbOwnerDrawFixed，这将允许你处理 MeasureItem 事件。

希望这可以帮助到你！如果你还有其他问题，请随时提问。