{
  フォーム上に同じ種類のコンポーネントが複数ある場合に、
  それらのプロパティを一括して指定・変更する方法です。
  プロパティの指定方法を変更すればいくらでも応用可です。

  下記の例はボタンを押すとListViewコントロールのViewStyleを
  vsReportに変更します。
  特定のオブジェクトプロパティを指定する時は ListView1.ViewStyle 〜
  などと指定しますが、特定多数のコンポのプロパティを指定するために
  TListView(Components[i]).ViewStyle  で置き換えている訳です。
}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TListView then
      TListView(Components[i]).ViewStyle := vsReport;
end;


10/20/1997 Mon. フクロウ [GCH06715]

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

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