在你的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; 用此方法,包你成功!
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; 用此方法,包你成功!
解决方案 »
- qreport 最大化问题
- 结婚归来,小散
- 数据库软件在98下不好用的问题
- QuickRep保存到文本时为什么是乱码?
- 各位请帮忙.我的帖子是紧急!!!!!!(softkinx)我来不及了,帮忙啊大哥们
- Delphi中有关Tcombox控件的问题~
- 如何让Panel出现滚动条,并且Panel里面的控件要随滚动条移动!?
- 好心的大哥大姐,小弟有个简单的问题请教!在Delphi中怎么使用VB开发的类库啊!(ActiveX DLL)
- 请问如何用ExpressBars Suit4建立一个菜单?
- 关于封装dll的问题
- dbGrid中如何单击择或取销择一行,拖动选取多行
- S3Trio 3D/2X 下使用Delphi,工具条显示不对,更改system.ini没有作用。
SendMessage(ListBox1.Handle,LB_SetHorizontalExtent,5000, longint(0));