簡潔な記述 (ID:7384)

名前

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

本文 pagecontrolのTabSheet1〜12上のScrollBox1〜12をScrollさせるprocedureを作りました。 機能はするのですがcase〜of〜end部分の記述が不満です。 簡潔に書けるでしょうか？ procedure TForm1.KeyScroll(UporDown:integer); var i:integer; Sb:TScrollBox; begin i:=pagecontrol1.ActivePage.TabIndex+1; case i of 1:Sb:=ScrollBox1; 2:Sb:=ScrollBox2; 3:Sb:=ScrollBox3; 4:Sb:=ScrollBox4; 5:Sb:=ScrollBox5; 6:Sb:=ScrollBox6; 7:Sb:=ScrollBox7; 8:Sb:=ScrollBox8; 9:Sb:=ScrollBox9; 10:Sb:=ScrollBox10; 11:Sb:=ScrollBox11; 12:Sb:=ScrollBox12; end; i:=Sb.VertScrollBar.Position; i:=i+200*UporDown; Sb.VertScrollBar.Position:=i; end;