UpDownの使い方

ＵｐＤｏｗｎコントロールを使うと、増減ボタンの付いたエディットボックスを簡単に作ることができます。

増減ボタンの付いたエディットボックスを作るには

1. エディットボックスをフォームに貼り付け、その右側にUpDownコントロールを貼り付けます。
2. オブジェクトインスペクタでUpDownコントロールの最大値(Max)と最小値(Min)を設定します。
3. UpDownコントロールのオブジェクトインスペクタでOnChangingイベントハンドラを追加してつぎのようなコードを追加します。

procedure TForm1.UpDown1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
 txtValue.Text := IntToStr(UpDown1.Position);
end;