如何使用 SendMessage 選擇 ListBox、ComboBox 中的項

const i = 1;

//初始測試數據
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.CommaText := 'aaa,bbb,ccc';
  ComboBox1.Items.CommaText := 'aaa,bbb,ccc';
end;

//對 ListBox1
procedure TForm1.Button1Click(Sender: TObject);
begin
//  ListBox1.Selected[i] := True;                   {常規方法}
  SendMessage(ListBox1.Handle, LB_SETCURSEL, i, 0); {發送消息}
end;

//對 ComboBox1
procedure TForm1.Button2Click(Sender: TObject);
begin
//  ComboBox1.ItemIndex := i;                        {常規方法}
  SendMessage(ComboBox1.Handle, CB_SETCURSEL, i, 0); {發送消息}
end;