如何使用 SendMessage 选择 ListBox、ComboBox 中的项 - 回复 "倪慧刚" 的问题
2011-12-01 15:25
281 查看
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;
相关文章推荐
- 如何使用 SendMessage 选择 ListBox、ComboBox 中的项
- 如何使用系统级热键捕捉当前窗口保存为 png 图片 - 回复 "巅枫" 的问题
- 如何使用 PPChar - 回复 "DelphiFan" 的问题
- 如何使用 TStringGrid 呈现大量的颜色信息 - 回复 "冷公子" 的问题
- 如何使用 URLOpenStream 函数 - 回复 "天泽" 的问题
- 小技巧:SP下,如何使用ListBox+SPIN组成一个没有空隙的ComboBox
- 如何在数据表中存取图片 - 回复 "三足乌" 的问题
- TPageControl 上有多个 TWebBrowser 时, 如何协调 Back、Forward - 回复 "飘逸的蓝" 的问题
- 一个"如何使用示波器安全测试接市电电路板"的问题
- 如何让 TreeView 的列表项携带数据、并读出或删除这个数据 - 回复 "Splendour" 的问题
- 如何对gcc和g++版本进行调整选择,解决"未定义的引用"的问题
- 如何在数据表中存取图片 - 回复 "三足乌" 的问题
- 在 StringGrid 上画线时, 使用 GDI+ 以消除锯齿 - 回复 "gsjn_8888_6666" 的问题
- Mysql第一次使用-如何解决Mysql "发生系统错误2,找不到指定的文件" 的问题(第一次安装使用)
- 如何在 TDrawGrid 的单元格中显示图片 - 回复 "巅枫" 的问题
- 如何用 GDI+ 高质量地缩放图片 - 回复 "程序牛" 的问题
- 如何处理在风暴英雄中选择"进行游戏"死机的问题
- 如何把一个字符串填充到一个无类型的指针 - 回复 "豪杰的爸爸" 的问题
- ExtJS PropertyGrid中使用Combobox选择值问题
- 如何用弹出窗口显示进度 - 回复 "嘿嘿嘿" 的问题