|
▼ たてぐやさん
> 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;
|