リストボックスの選択項目をボタン操作で上下に移動する

ここではリストボックスの選択項目を上ボタンを押したら「上」に、下ボタンを押したら「下」に移動させます。



■必要なコンポーネント

■使用するAPI関数

■ソースは下記のようになります。追加している所は青色です。

■リストボックスの選択項目を上ボタンを押したら「上」に、下ボタンを押したら「下」に移動する処理
procedure TForm1.FormCreate(Sender: TObject);
Var
　i : integer;
begin

　//初期設定
　For i := 0 to 50 do
　　ListBox1.Items.ADD(IntTostr(i)+'行目');

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

　//選択項目を一行上にする
　SendMessage(ListBox1.Handle, LB_SETCURSEL, ListBox1.ItemIndex - 1, 0);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

　//選択項目を一行下にする
　SendMessage(ListBox1.Handle, LB_SETCURSEL, ListBox1.ItemIndex + 1, 0);

end;


Win32APIのページへ