Delphi使ListBox下拉时出现水平滚动条?

[wenzm]

当Item内容较长时,标准listBox中超过lisBox.width的长度看不到,如何决?

试过sendmessag+LB_SETHORIZONTALEXTENT 但无效(对ComBox有效).

[wuyouwulv]

在你的Form的OnCreate事件中添加以下代码：
procedure TForm1.FormCreate(Sender: TObject);
var
i, MaxWidth: integer;
begin
MaxWidth := 0;
for i := 0 to ListBox1.Items.Count - 1 do
if MaxWidth < ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]) then
MaxWidth := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]);
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);
end;

用此方法，包你成功！

[zxq80]

给TListBox 发送一个LB_SetHorizontalExtent消息就行了。下面是源代码：
SendMessage(ListBox1.Handle,LB_SetHorizontalExtent,5000, longint(0));

[yeah]

呵呵，来晚了。