怎么用sendmessage或者postmessage选中只读下拉框中的某个项目？

作者：易秀胜_444 | 来源：互联网 | 2023-09-04 18:07

有一个第三方程序(不一定是什么语言开发)的录入界面，上面有一个只读下拉框（就是不能往里面写东西的那种），里面的数据项是：品种1品种2品种3品种4数据的顺序不定，数据的数量也

有一个第三方程序(不一定是什么语言开发)的录入界面，上面有一个只读下拉框（就是不能往里面写东西的那种），
里面的数据项是：
品种1
品种2
品种3
品种4
...
...
数据的顺序不定，数据的数量也不定。比如说品种3，它不一定在下拉框的第几项。

我现在想通过sendmessage或者postmessage发送一个消息给这个下拉框，让它选中“品种3”
SendMessage(combo1.Hwnd, WM_SETTEXT, 0, '品种3');
但这样不好使，PostMessage也试过，也不行。

请教，应该怎样实现我要的效果？

21 个解决方案

#1

SendMessage(ComboBox1.Handle, WM_SETTEXT, 0, Integer(PChar('品种3')));

#2

或
SendMessage(ComboBox1.Handle, CB_SETCURSEL, ComboBox1.Items.IndexOf('品种2'), 0);

#3

SendMessage(yourHandle,CB_SETCURSEL,0,Integer(PChar('123')));

#4

我发现3楼回答的问题：1、要么没看清楚别人的问题就回答；2、要么就是回答别人已经回答过的答案。

#5

TO：4楼的
我只是说一下
blazingfire的第2个方法不成功吧
从blazingfire回答也学了不少东西

我也再学习，呵呵
仁者见仁，智者见智吧

#6

引用 2 楼 blazingfire 的回复:

或
SendMessage(ComboBox1.Handle, CB_SETCURSEL, ComboBox1.Items.IndexOf('品种2'), 0);

这个肯定是不行的了，因为目标程序是第三方的，我不能获取到ComboBox1控件。
我能知道的只是它的句柄，和列表中能看到的汉字。

#7

以上方法都试过了，都不行。

#8

var
  Ret: LongInt;
begin
  Ret := SendMessage(combo1.Hwnd, CB_FINDSTRINGEXACT, -1, LongInt(PChar('品种2')));
  if Ret = -1 then begin
    ShowMessage('没有找到品种2!');
    Exit;
  end;
  SendMessage(combo1.Hwnd,CB_SETCURSEL,Ret,0);
end;

#9

发现僵哥就是高手，一出手就解决问题。
另外我找到这样也可以：
SendMessage(combo.Hwnd, CB_SELECTSTRING, 0, Integer(PChar('品种3')));
－－－－－－－－－－－－－－－－－－－－－－－－－
但发现这两个方法，虽然内容都选中了，但却没有激活下拉框的点击事件或者change事件，
应该如何继续处理呢？

#10

引用 4 楼 xiaoxinxx168 的回复:

我发现3楼回答的问题：1、要么没看清楚别人的问题就回答；2、要么就是回答别人已经回答过的答案。

一笑而过!
对于SendMessage(ComboBox1.Handle, WM_SETTEXT, 0, Integer(PChar('品种3'))) 不成功的，不是因为这个方法本身有问题，而是
因为目标ComboBox的风格的问题

#11

引用 9 楼 wts 的回复:

发现僵哥就是高手，一出手就解决问题。
另外我找到这样也可以：
SendMessage(combo.Hwnd, CB_SELECTSTRING, 0, Integer(PChar('品种3')));
－－－－－－－－－－－－－－－－－－－－－－－－－
但发现这两个方法，虽然内容都选中了，但却没有激活下拉框的点击事件或者change事件，
应该如何继续处理呢？

这是一个很严重的问题，特别是对于Delphi来说，这应该算是一个BUG。如果该程序是使用VC写的，就不会存在这个问题，因为VC都是基于消息的。但是Delphi就不一样了。

#12

我试了下，用VB写的也不会触发点击事件

#13

引用 10 楼 blazingfire 的回复:

引用 4 楼 xiaoxinxx168 的回复:
我发现3楼回答的问题：1、要么没看清楚别人的问题就回答；2、要么就是回答别人已经回答过的答案。

一笑而过!
对于SendMessage(ComboBox1.Handle, WM_SETTEXT, 0, Integer(PChar('品种3'))) 不成功的，不是因为这个方法本身有问题，而是
因为目标ComboBox的风格的问题

是啊，但我总不能要求把第三方程序下拉框改成可写的吧？

#14

应该可以继续编程，去触发下拉框的点击事件以及onchange事件啊

#15

引用 13 楼 wts 的回复:

引用 10 楼 blazingfire 的回复:
引用 4 楼 xiaoxinxx168 的回复:
。。。。。
是啊，但我总不能要求把第三方程序下拉框改成可写的吧？

那确实不能!

鉴于楼主楼主不喜欢别人发同样回复，作一个和他们都不一样的回复吧：


procedure ChangeComboBoxTo(hCmbBox: THandle; Searched: string);
var
  i, Count, Len: integer;
  S: string;
begin
  Searched := Trim(Searched);
  //取得ComboBox里的项总数
  Count := SendMessage(hCmbBox, CB_GETCOUNT, 0, 0);
  //循环比较每一项,找到与Searched相等的项
  for i := 0 to Count - 1 do
  begin
    Len := SendMessage(hCmbBox, CB_GETLBTEXTLEN, i, 0);
    if Len > 0 then
    begin
      SetLength(S, Len);
      SendMessage(hCmbBox, CB_GETLBTEXT, i, Integer(PChar(S)));
      //取得每一项的内容放入S
      S := Trim(S);
      if SameText(S, Searched) then
      begin
        //设定当前项
        SendMessage(hCmbBox, CB_SETCURSEL, i, 0);
        //如果目标是Delphi程序，让ComoBox触发其OnChange事件
        SendMessage(hCmbBox, CN_COMMAND, MakeLong(0, CBN_SELCHANGE), 0);
        Break;
      end;
    end;
  end;
end;

调用例子：


procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeComboBoxTo(ComboBox1.Handle, '品种2');
end;

#16

//如果目标是Delphi程序，让ComoBox触发其OnChange事件
SendMessage(hCmbBox, CN_COMMAND, MakeLong(0, CBN_SELCHANGE), 0);
为什么必须是Delphi程序呢？如果不是Delphi程序应该怎么办呢？

我试了一下，VB的不能触发onclick事件

现在最关键的是触发onclick事件

另外不是我说的不让发重复的，呵呵，楼上看错了。
但同样非常感谢。

另外没理解，你在循环里判断和unsigned的

var 
  Ret: LongInt; 
begin 
  Ret := SendMessage(combo1.Hwnd, CB_FINDSTRINGEXACT, -1, LongInt(PChar('品种2'))); 
  if Ret = -1 then begin 
    ShowMessage('没有找到品种2!'); 
    Exit; 
  end; 
  SendMessage(combo1.Hwnd,CB_SETCURSEL,Ret,0); 
end;

这个方法的区别是什么呢？
是不是用哪个都行呢？
还有跟
SendMessage(combo.Hwnd, CB_SELECTSTRING, 0, Integer(PChar('品种3')));
的区别又是什么呢？
现在有三个方法了，我就不知道用哪个了。

#17

呵呵，如果三个方法都行，你就选一个代码最少的一个!至于区别，我看都不大，只是一个是你自己写，一个是调用已经写的API；
不过自己写要灵活些，能作更多的事情。

引用 14 楼 wts 的回复:

//如果目标是Delphi程序，让ComoBox触发其OnChange事件
SendMessage(hCmbBox, CN_COMMAND, MakeLong(0, CBN_SELCHANGE), 0);
为什么必须是Delphi程序呢？如果不是Delphi程序应该怎么办呢？

这个和Delphi响应消息的具体实现有关

引用 14 楼 wts 的回复:

应该可以继续编程，去触发下拉框的点击事件以及onchange事件啊

你到底是要OnClick还是OnChange呢？

#18

如果你要的OnChange的话，象这样改造一下可能VB的OnChange事件也能触发。我这里没有VB试，
我这里用C#写了一个小程序是可以触发OnChange事件了


procedure ChangeComboBoxTo(hCmbBox: THandle; Searched: string);
var
  i, Count, Len: integer;
  S: string;
begin
  Searched := Trim(Searched);
  //取得ComboBox里的项总数
  Count := SendMessage(hCmbBox, CB_GETCOUNT, 0, 0);
  //循环比较每一项,找到与Searched相等的项
  for i := 0 to Count - 1 do
  begin
    Len := SendMessage(hCmbBox, CB_GETLBTEXTLEN, i, 0);
    if Len > 0 then
    begin
      SetLength(S, Len);
      SendMessage(hCmbBox, CB_GETLBTEXT, i, Integer(PChar(S)));
      //取得每一项的内容放入S
      S := Trim(S);
      if SameText(S, Searched) then
      begin
        //设定当前项
        SendMessage(hCmbBox, CB_SETCURSEL, i, 0);
        //触发OnChange事件,不用CN_COMMAND
        SendMessage(hCmbBox, WM_COMMAND, MakeLong(0, CBN_SELCHANGE), hCmbBox);
        Break;
      end;
    end;
  end;
end;

#19

VB的程序我试了
用CN_COMMAND的话onclick和onchange都不能触发，
用WM_COMMAND倒是触发了onclick事件。但看你代码的意思应该是要触发onchange事件。
怪了。

#20

那又该怎么样触发onchange事件呢？
有的程序的下拉框中，既有onclick事件又有onchange事件。

另外我继续追加100分。

#21

引用 19 楼 wts 的回复:

VB的程序我试了
用CN_COMMAND的话onclick和onchange都不能触发，
用WM_COMMAND倒是触发了onclick事件。但看你代码的意思应该是要触发onchange事件。
怪了。

对呀，我也觉得怪，不知道那个VB是怎么回事。鬼知道VB里面如何处理这个WM_COMMAND消息的!!
我这里试了C#是不会触发Click事件的，好象只触发了SelectedIndexChanged和
SelectedValueChanged两个事件

推荐阅读

object
Delphi XE2 之 FireMonkey 入门(19) - TFmxObject 的子类们(表)

td{border:1pxsolid#808080;}参考:和FMX相关的类(表)TFmxObjectIFreeNotification ... [详细]

蜡笔小新 2024-11-21 22:35:24
object
利用Scrapy构建的数据采集与分析可视化系统

本文探讨了如何使用Scrapy框架构建高效的数据采集系统，以及如何通过异步处理技术提升数据存储的效率。同时，文章还介绍了针对不同网站采用的不同采集策略。 ... [详细]

蜡笔小新 2024-11-23 16:56:38
object
C# 实现服务账户密码重置功能

本文详细介绍了如何使用C#实现不同类型的系统服务账户（如Windows服务、计划任务和IIS应用池）的密码重置方法。 ... [详细]

蜡笔小新 2024-11-22 21:55:10
int
必须为元素类型 mapper 声明属性 namespace解决

在使用mybatis进行mapper.xml测试的时候发生必须为元素类型“mapper”声明属性“namespace”的错误项目目录结构UserMapper和UserMappe ... [详细]

蜡笔小新 2024-11-23 20:06:58
install
C/C++ 应用程序的安装与卸载解决方案

本文介绍了如何使用Inno Setup来创建C/C++应用程序的安装程序，包括自动检测并安装所需的运行库，确保应用能够顺利安装和卸载。 ... [详细]

蜡笔小新 2024-11-23 13:44:53
int
Go语言实现文件读取与终端输出

本文介绍如何使用Go语言编写程序，通过命令行参数指定文件路径，读取文件内容并将其输出到控制台。代码示例中包含了错误处理和资源管理的最佳实践。 ... [详细]

蜡笔小新 2024-11-23 10:57:16
object
如何在C# WinForms中创建自定义圆形按钮

本文介绍了如何在C# WinForms应用程序中通过自定义绘制实现圆形按钮的方法，适合初学者参考。 ... [详细]

蜡笔小新 2024-11-23 10:49:05
int
重学前端学习笔记（二十四）HTML里的链接元素

笔记说明重学前端是程劭非（winter）【前手机淘宝前端负责人】在极客时间开的一个专栏，每天10分钟，重构你的前端知识体系& ... [详细]

蜡笔小新 2024-11-23 10:34:04
int
数据输入验证与控件绑定方法

本文提供了多种数据输入验证函数及控件绑定方法的实现代码，包括电话号码、数字、传真、邮政编码、电子邮件和网址的验证，以及报表绑定和自动编号等功能。 ... [详细]

蜡笔小新 2024-11-23 07:47:36
int
Java程序设计复习题

1、编写一个Java程序在屏幕上输出“你好！”。programmenameHelloworld.javapublicclassHelloworld{publicst ... [详细]

蜡笔小新 2024-11-22 20:05:03
install
WPF菜单控件前景与背景颜色设置指南

尽管在WPF中工作了一段时间，但在菜单控件的样式设置上遇到了一些基础问题，特别是关于如何正确配置前景色和背景色。 ... [详细]

蜡笔小新 2024-11-22 15:30:54
uri
PHP与MySQL实现高效分页查询

本文探讨了如何在PHP与MySQL环境中实现高效的分页查询，包括基本的分页实现、性能优化技巧以及高级的分页策略。 ... [详细]

蜡笔小新 2024-11-22 05:45:48
install
解决iOS应用推送通知错误：未找到有效aps-environment权限

在尝试加载支持推送通知的iOS应用程序的Ad Hoc构建时，遇到了‘no valid aps-environment entitlement found for application’的错误提示。本文将探讨此错误的原因及多种可能的解决方案。 ... [详细]

蜡笔小新 2024-11-21 19:26:31
int
Oracle 11g 创建表空间与基础配置

本文详细介绍了Oracle 11g中的创建表空间的方法，以及如何设置客户端和服务端的基本配置，包括用户管理、环境变量配置等。 ... [详细]

蜡笔小新 2024-11-21 18:54:39
jar
Maven + Spring + MyBatis + MySQL 环境搭建与实例解析

本文详细介绍如何使用MySQL数据库进行环境搭建，包括创建数据库表并插入示例数据。随后，逐步指导如何配置Maven项目，整合Spring框架与MyBatis，实现高效的数据访问。 ... [详细]

蜡笔小新 2024-11-21 18:39:23

易秀胜_444

这个家伙很懒，什么也没留下！

Tags | 热门标签

RankList | 热门文章