Component配列？ (ID:7052)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 まぁこれでもいいんじゃないでしょうか //jokさんのを1箇所変更 procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i := 0 to ToolBar1.ButtonCount-1 do ToolBar1.Buttons[i].Tag := i+1; end;