如何动态调整listview得column得宽度

aifox 2004-08-13 11:04:20

如果窗体resize事件发生的话
如何才能让listview得column得宽度随着窗体的变化而变化呢
请教

...全文

242 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

aifox 2004-08-15

打赏
举报

i是从多少开始的阿

aohan 2004-08-14

打赏
举报

同意上面的办法

rainstormmaster 2004-08-14

打赏
举报

//如何动态调整listview得column得宽度
在程序中，设置ListView1.ColumnHeaders(i).Width的值即可

aifox 2004-08-14

打赏
举报

有没有别的不用delphi的办法吗

cso 2004-08-13

打赏
举报

楼上的走错门了~~~~这里不是delphi哦

talent303 2004-08-13

打赏
举报

例如:
Private Sub Form_Resize()
With ListView1
.Icons = ImageList1
.ListItems.Clear
.ListItems.Add , , "用户数据卡", 2
.ListItems.Add , , "系统设置卡", 1
.ListItems.Add , , "密码授权卡", 3
.ListItems.Add , , "时钟设置卡", 4
.ListItems.Add , , "数据采集卡", 5
.ListItems.Add , , "电池恢复卡", 6
End With
With VerticalMenu1
On Error Resume Next
.Left = 10
.Top = 620
.Width = 1600
.Height = Me.Height - 1670
End With
With SSSplitter1
.Width = Me.Width - 1750
.Top = VerticalMenu1.Top
.Left = VerticalMenu1.Left + VerticalMenu1.Width
.Height = VerticalMenu1.Height
End With
End Sub

talent303 2004-08-13

打赏
举报

如果一定要改变窗体的大小，可以在form的OnPaint()事件中设置窗体内控件的top left width height属性来达到控件的相对位置和大小
例：
treeview1.height:=urmainform.clientheight-30;
treeview1.Width:=urmainform.ClientWidth div 4;
listview1.Height:=urmainform.clientheight-30;
listview1.Left:=treeview1.Width+treeview1.Left+1;
listview1.Width:=urmainform.ClientWidth-listview1.Left-10;