ListBox 가로 스크롤 막대 추가

Delphi TListBox              ,                    ,          。  ,               ,           。  ,               ,       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;

                   (      ),  ,  LB_SETHORIZONTALEXTENT                 (      ),         。

좋은 웹페이지 즐겨찾기