リストボックスの指定の行をトップにしてハイライト表示する

ここでは下記の図のようにリストボックスの１０行目をトップにしてハイライト表示にします。



■必要なコンポーネント

■使用する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, 10, 0)；

end;




Win32APIのページへ