請問Listbox可否horizontal scroll?

你好 目前我使用的時候似乎是沒有，現在使用的方式是用一個ScrollBox,將ListBox長度拉長一點,然後放到scrollbpx中,這樣就可以達到listbox有scrollBar的功能,參考一下吧!! Pillar Wang

------
Pillar Wang

你好Pillar Wang 什麼是scrollbpx?

你好 不好意思打錯了,是scrollbox!! Pillar Wang

------
Pillar Wang

你好 不好意思打錯了,是scrollbox!!在additional的頁籤裡面!! Pillar Wang

------
Pillar Wang

參考: http://www.scalabium.com/faq/dct0010.htm #10: How can I add the horizontal scrollbar into listbox?  If you want to add a horizontal scrollbar in TListBox (which have a vertical scrollbar only by default), you need send a LB_SETHORIZONTALEXTENT message: SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, FMaxItemWidth, 0);    For example, the next code shows how you can scroll a data with maximum width of item strings:

procedure TForm1.FormCreate(Sender: TObject);
var i, intWidth, intMaxWidth: Integer;
begin
  intMaxWidth := 0;
  for i := 0 to ListBox1.Items.Count-1 do
  begin
    intWidth := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]   'x');
    if intMaxWidth < intWidth then
      intMaxWidth := intWidth;
  end;
  SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, intMaxWidth, 0);
end;

--