簡潔な記述 (ID:7385)

名前

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

本文 FormのPrivateで FSbTbl[1..12] of TScrollBox と定義しておいて FormCreateイベント内で FSbTbl[1] := ScrollBox1 ・・・ FSbTbl[12] := ScrollBox12 と代入しておけば procedure TForm1.KeyScroll(UporDown:integer); var i:integer; Sb:TScrollBox; begin i:=pagecontrol1.ActivePage.TabIndex+1; Sb := FSbTbl[i]; i:=Sb.VertScrollBar.Position; i:=i+200*UporDown; Sb.VertScrollBar.Position:=i; end; と回数が多い処理でCase文がなくなります。 FormCreateの記述が単調なものになりますが ここは仕方ないかと思います。