名前
題名
▼ Mr.XRAYさん > ▼ たてぐやさん > > > 　7＆Delphi2009ではどうなるでしょうか？　楽しみ… > > ヘヘヘッ，旦那．そんなに楽しんじゃいけませんぜ． > 新規プロジェクトにListViewを配置しただけの，以下のコードでは > 全くなにもおきません．さて， > 後は何をしたらいいでしょうか． > > えっと，Windows XP(SP3) + Delphi2009(UP3) Proです． > > var > Form1: TForm1; > > implementation > > uses StrUtils; > > {$R *.dfm} > > procedure TForm1.FormShow(Sender: TObject); > var > i : Integer; > Str : string; > AItem : TListItem; > begin > ListView1.Align := alClient; > > ListView1.ViewStyle := vsReport; > ListView1.Columns.Add.Width := 200; > ListView1.Columns.Add.Width := 200; > ListView1.Columns.Add.Width := 200; > ListView1.Columns.Add.Width := 200; > > 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; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link