VCL组合框扩展功能

VCL高级组合框_取现行选中项
VCL高级组合框_取项目文本
VCL高级组合框_置现行选中项

.子程序 VCL高级组合框_取项目文本, 文本型, 公开, 取回组合框指定索引项目文本
.参数 VCL高级组合框, VCL高级组合框
.参数 项目索引, 整数型, , 项目索引，0表示第一行
.局部变量 文本, 文本型
.局部变量 Hwnd, 整数型
.局部变量 TEXTLEN, 整数型

Hwnd ＝ FindWindowEx (VCL高级组合框.取窗口句柄 (), 0, “TVclComboBoxEx”, “”)
TEXTLEN ＝ SendMessageA (Hwnd, #CB_GETLBTEXTLEN, 项目索引, 0)
文本 ＝ 取空白文本 (TEXTLEN)
SendMessageA_String (Hwnd, #CB_GETLBTEXT, 项目索引, 文本)