>>292 （続き．以下実装部）

uses
Math; // ←Min関数を使うため

const
// 改行文字
cLineBreak = #$0d#$0a;
// サンプルデータ（カンマ区切りテキスト形式）
cSample = '"いやーん","れもな","2003/05/03"' + cLineBreak +
'"さいたまさいたましてもいいですか？","たいよう","2003/03/31"' + cLineBreak +
'"異議あり！","謎の弁護士","2003/04/01"' + cLineBreak +
'"ハゲいうな！","C. Alexander","2002/12/26"';

procedure TForm1.FormCreate(Sender: TObject);
begin
InitListBox;
end;

// HeaderControl1のOnSectionResizeイベントのイベントハンドラ：
// ヘッダーコントロールのセクションの幅が変わったときの処理→リストボックスを描く
procedure TForm1.HeaderControl1SectionResize(HeaderControl: THeaderControl;
Section: THeaderSection);
begin
ListBox1.Invalidate;
end;
（つづく）