|
▼ 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のような
気がします。
|