其他的Memo不是都可以調成有兩個可移動的橫桿 為什麼FileLiseBox我找不到 檔案名稱太長的都會被切掉 請問該怎麼調呢 謝謝~~

millerh您好： 试试以下，没转成BCB < class="code"> procedure TForm1.Button1Click(Sender: TObject); var ScrollBarWidth: integer; i:integer; testDat:integer; begin testDat:=0; for i:=0 to FileListBox1.Items.Count-1 do begin ScrollBarWidth:=(FileListBox1.Canvas.TextWidth(FileListBox1.Items[i])); if ScrollBarWidth>testDat then testDat:=ScrollBarWidth; end; if TestDat > FileListBox1.Width then begin SendMessage(FileListBox1.Handle, LB_SETHORIZONTALEXTENT,TestDat 10, 0); // 或 // FileListBox1.Perform(LB_SETHORIZONTALEXTENT, TestDat 10, 0); end; end; ~~~静心养德~~~

引言: 其他的Memo不是都可以調成有兩個可移動的橫桿 為什麼FileLiseBox我找不到 檔案名稱太長的都會被切掉 請問該怎麼調呢 謝謝~~

millerh你好< >： 之前研究過的，參考參考< >： http://delphi.ktop.com.tw/topic.php?TOPIC_ID=46204