我在ListBox上自會截掉,若把form拉大就沒這個問題,請為我若不去拉大form的話我要如何讓listbox自動延申

如圖

正常情況下 if ListBox1.Items.Count>ListBox1.Height then   ListBox1就會自動產生垂直的捲抽..   so不知您指的字被截掉是什麼情況?!    if 是字的寬度>ListBox1.Items.With then   可參考以下方法產生橫向捲抽.. ex.使ListBox有橫向捲軸 procedure TForm1.Button1Click(Sender: TObject); begin   SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, ListBox1.Width + 30, 0); end;    < >< >

產生橫向捲抽 ex.使ListBox有橫向捲軸 procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, ListBox1.Width 30, 0); end;

您的問題並不在於橫向捲軸的問題。 在於欄寬，記得您上次有詢問過相同的問題。 在此建議您可以利用 Canvas.TextWidth 取得最大字元寬度後(最長的字) 再利用SendMessage(ListBox1.Handle, LB_SETCOLUMNWIDTH, 90, 0); 調整欄寬。在這裡我就不再提供程式碼了！ PS.一個會自動判斷是否要橫向卷軸的ListBox 元件。 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=59773

謝謝了解了,之前我一直在算筆數固定13行就跳往另一列,資料少就沒發生問題, 資料多時,就發生這個問題,