{
  TListView コンポーネントで既に選択された項目(Item)がない時に
  フォーカスが来たら、Windows Explorerのように項目のラベルに点
  線枠を表示したい場合
}

procedure TForm1.ListView1Enter(Sender: TObject);
begin
  with ListView1 do
    if Items.Count > 0 then         // ListViewに項目が存在していて...
      if Selected = nil then begin  // すでに項目が選択されていなければ
        Selected := Items[0];       // 最初の項目(Item[0])を一度選択
        Selected.Focused := True;   // Focused プロパティをTrueに
        Selected := nil;            // 選択を解除する
      end;

10/18/1997 Sat. フクロウ [GCH06715]

Original document by フクロウ        氏 ID:(GCH06715)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。