名前 題名 ▼ たてぐやさん > ▼ Mr.XRAYさん > > > 新規プロジェクトにListViewを配置しただけの，以下のコードでは > > 全くなにもおきません．さて， > > 後は何をしたらいいでしょうか． > > 試行していただいてありがとうございます。問題が起きるのは > メインフォームから表示させるフォームです。メインフォームに > ボタンをひとつ置いて、そのOnClickで、試して戴いたようなコー > ドをwith構文を使って書いたあと、Showmodalしています。こんな > 感じです。 > > with Form2 do begin > for i := 65 to 90 do begin > Str := DupeString(Chr(i), 7); > AItem := ListView1.Items.Add; > AItem.Caption := Str; > AItem.SubItems.Add(Str); > AItem.SubItems.Add(Str); > AItem.SubItems.Add(Str); > end; > Showmodal; > end; > > Tlistviewですが、From2にTpanelをAlLeftで配置し、Tsplitterを > AlLeft で配して残りの部分にTpanelをAlClient配置しています。 > Tlistviewはこの左側のパネル上にAlClientで配置しています。この > 状態でボタンクリックでForm2をSHowmodalすると、その時点で出るこ > ともありますし、スムーズにForm2が表示されても、Tsplitterをドラッ > グすると、CPUウィンドウが出てデバッガが止まります。Form2の右の > TpanelにはTbitmapを配置してあり、親であるTpanelのOnResizeイベ > ントでwidthとHeightを変更するようなコードがあります。OnResize > イベントが引金かと思ったのですが、TlistviewをTstriｎlistに置き > 換えたら発生しなくなりました。今もって容疑者はTlistviewのような > 気がします。 GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link