ListView 大小改变问题

[玄之丞]

FORM上有一个ListView，
内容是动态添加的。

ListView的 Align = Client

窗体大小不变时正常。

当窗体大小改变后，ListView宽高也跟着变，
可是里面的内容排列还是窗体大小非改变时的排列。

我试着处理 OnResize 事件也不行。
void __fastcall TForm1::ListView1Resize(TObject *Sender)
{
ListView1->Repaint();
}

各位大大帮我看看。谢谢。

[daydayup234]

void __fastcall TForm1::ListView1Resize(TObject *Sender)
{
for(int i=0;i<ListView1->Columns->Count;i++)
ListView1->Columns->Items[i]->Width=
(ListView1->Width)/ListView1->Columns->Count;
}
看看

[玄之丞]

汗一个，忘了说明了:

ListView的模式是 ViewStyle= vsIcon
不是vsReport 模式呀。

[daydayup234]

真是啊，没头绪了

[constantine]

void __fastcall TForm1::ListView1Resize(TObject *Sender)
{
ListView1->ViewStyle=vsList;
ListView1->ViewStyle=vsIcon;
}
看看

[玄之丞]

我试了一下，不行。
改成这样，还是不行。
ListView1->ViewStyle=vsList;
ListView1->Repaint();
ShowMessage("");
ListView1->ViewStyle=vsIcon;
ListView1->Repaint();
奇怪。

[constantine]

不清楚了，我在delphi6中试了一下我的代码可以啊。你的bcb有没有打补丁？不知道有没有关系

[玄之丞]

终于解决了。
onresize时，clear了，再重绘。
汗一下。

谢谢大家。