用Delphi“遥控”按钮

原创 2002年05月30日 10:05:00
很多情况下,我们需要在程序中实现这样的功能:在自编写的程序里控制另外一软件中的某个按钮被按下。比如,有一天你在聊QQ时觉得烦了,那么就想写程序来帮你按下“发送”按钮,省得你自己一次次动手了。那么,这个想法怎样才能实现呢?

其实做法很简单,它只用两条Windows消息就能实现了。(当然,前提是你必须知道那个按钮的handle。我想这个对一般程序员来说简直是小菜一碟)这两条消息分别是:WM_LBUTTONDOWNWM_LBUTTONUP。下面我给出一个简单的实例说明用法:

 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

procedure TForm1.Button1Click(Sender: TObject);

var

  btnHandle: HWND;  //要控制的那个按钮的句柄

begin

    btnHandle:=strtoint(Edit1.Text );  //为了简单起见就这么设了,你要先写程序得到它

    SendMessage(btnHandle,WM_LBUTTONDOWN,MK_LBUTTON, 0);

    SendMessage(btnHandle,WM_LBUTTONUP,0,0);

end;

 

整个过程其实就是模拟了一下鼠标左键被按下又松开(注意,光有鼠标左键被按下是不行的)。怎么样?够简单吧!现在就可以把这个功能加进你的程序里面,实现一些有趣的效果了!:)

Android 自定义电视遥控器控件

自定义电视遥控器圆形按钮 点击打开链接
  • q957789074
  • q957789074
  • 2016年11月25日 16:30
  • 454

Android笔记--自定义控件仿遥控器的圆形上下左右OK圆盘按钮

上面就是几张预览图!代码在最底下 主要就两个步骤,画图、监听点击 1、整个控件基本上是一步步画出来的,重写onDraw方法开始for循环画扇形出来,画扇形的时候同时画扇形内的图标,扇形画完了之后画...
  • qq_33601179
  • qq_33601179
  • 2017年03月10日 14:15
  • 1067

android4.0添加遥控器按键整理篇

1、ir_keyboard.h增加物理键值。http://blog.csdn.net/zvivi521/article/details/9469367 2、ir_keyboard.c数组里面Key_C...
  • zvivi521
  • zvivi521
  • 2013年07月31日 10:04
  • 1361

Delphi 2010 TButtonGroup控件的使用

TButtonGroup显示在一个容器中的按钮组。使用TButtonGroup可以创建相关按钮集合。下面来学习使用这个控件,拖动Tool Palette面板的Additional类别下TButtonG...
  • akof1314
  • akof1314
  • 2011年11月08日 12:32
  • 9169

安卓自定义View----且看如何巧妙地实现一个类似于电视遥控板的环形按钮效果(上)

本文力求用最简单的方式实现这样的一个效果,并辅以详细的文字说明。 老规矩,先看图: 一个点餐界面,6种菜品,意味着6个按钮,点击‘开始点餐’ 幕布上升效果,这个动画下篇再讲。这篇的重点是这个样式的...
  • u012534831
  • u012534831
  • 2016年08月31日 10:59
  • 1727

Delphi皮肤之 - 图片按钮

效果如图,支持普通、移上去、按下、弹起、禁用5种状态。 unit BmpBtn;   interface   uses   Windows, Messages, SysUtils, Cla...
  • zang141588761
  • zang141588761
  • 2016年08月23日 09:16
  • 1014

Delphi & BC++ 按钮单击事件代码查找

Delphi & BC++ 按钮单击事件特征码为: 740E8BD38B83????????FF93     //  问号??表示任意字符的意思。 在OD中查找以上特征码,然后在FF93那一行...
  • friendan
  • friendan
  • 2016年01月01日 23:18
  • 2111

Delphi中如何实现透明按钮 也可用于BCB

各位亲爱的读者,在delphi编程实战中我们可以使用按钮控件来制作程序中的按钮键。但是在使用其它软件时,我们常常可以看到透明按钮的效果。那么如何在delphi中实现透明按钮的效果?笔者在互联网搜索了不...
  • binnygoal
  • binnygoal
  • 2014年02月26日 10:18
  • 1147

用DELPHI实现特色按钮

每当用到DELPHI自带的控件都感到少了一点什么,形状也好,颜色也好,变化的方式也好,都与自已的项目所需要的标准相差了一些,查阅了一些书籍后发现下面的控件很有可用之处!!!以下是它的源代码:unit ...
  • dajianshi
  • dajianshi
  • 2001年07月25日 17:01
  • 1152

自主开发Delphi控件[1]: THSImageExButton图片按钮,3状态控制

1>需求: 图片按钮2>功能:  鼠标移入切换图片1             鼠标移出切换图片2             鼠标按下切换图片3 并锁定当前图片状态。不在支持鼠标移入移出状态开发1> 运行...
  • Code_GodFather
  • Code_GodFather
  • 2010年01月28日 21:51
  • 3699
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用Delphi“遥控”按钮
举报原因:
原因补充:

(最多只允许输入30个字)