如何使用 SendMessage 选择 ListBox、ComboBox 中的项

最新推荐文章于 2022-01-07 16:49:29 发布

转载最新推荐文章于 2022-01-07 16:49:29 发布 · 3.6k 阅读

经典常用代码专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一种在Delphi中使用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;