文档章节

学习 Message(12): 整合鼠标 Down 消息

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 137
阅读 1
收藏 0
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  protected
    procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
    procedure WMMButtonDown(var Message: TWMMButtonDown); message WM_MBUTTONDOWN;
    procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN;
    procedure MyMouseDown(Button: TMouseButton; X, Y: Integer);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyMouseDown(Button: TMouseButton; X,Y: Integer);
var
  btn: string;
begin
  case Button of
    mbLeft:   btn := '左键';
    mbRight:  btn := '右键';
    mbMiddle: btn := '中键';
  end;
  ShowMessageFmt('%s: %d,%d', [btn,X,Y]);
end;

procedure TForm1.WMLButtonDown(var Message: TWMLButtonDown);
begin
  MyMouseDown(mbLeft, Message.XPos, Message.YPos);
end;

procedure TForm1.WMMButtonDown(var Message: TWMMButtonDown);
begin
  MyMouseDown(mbMiddle, Message.XPos, Message.YPos);
end;

procedure TForm1.WMRButtonDown(var Message: TWMRButtonDown);
begin
  MyMouseDown(mbRight, Message.XPos, Message.YPos);
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/10/30/1322854.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
spring boot框架学习12-spring boot整合active mq方法1

本章节主要内容:主要从以下几个方面讲解:mybatis和spring boot整合、redis(单机版)和spring boot整合、redis(集群)和spring boot整合、httpclient和spring boot整合、rabbitMQ/active MQ和...

799879287
2017/12/10
0
0
spring boot框架学习12-spring boot整合active mq方法1

本章节主要内容: 主要从以下几个方面讲解: mybatis和spring boot整合、redis(单机版)和spring boot整合、redis(集群)和spring boot整合、httpclient和spring boot整合、rabbitMQ/active M...

中凯_凯哥java
2017/12/10
64
0
C#程序员开发WinForm必须知道的 Window 消息大全

不要以为下面的东西只有C++中才会用到哦! 消息,就是指Windows发出的一个通知,告诉应用程序某个事情发生了。例如,单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给...

微wx笑
2015/01/03
0
0
WINDOWS消息机制(三)---系统消息队列,线程消息队列

在前文中我们讲到,鼠标或者键盘事件产生的消息会送到操作系统的消息队列中,再从系统队列送到各线程对应的消息队列。本文主要讲述的就是系统队列以及线程队列。 1. 系统队列 当操作系统启动...

西昆仑
2012/07/02
3.5K
0
Hooks——钩子概览

(资料源于MSDN,本文仅对其进行翻译、批注。其链接为:http://msdn.microsoft.com/en-us/library/windows/desktop/ms644959%28v=vs.85%29.aspx本文链接:http://blog.csdn.net/wlsgzl/artic......

技术mix呢
2017/11/09
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Nginx 快速安装详解

一、Nginx Nginx (engine x) 是一个高性能的HTTP和反向代理web服务器,同时也提供了IMAP/POP3/SMTP服务。Nginx是由伊戈尔·赛索耶夫为俄罗斯访问量第二的Rambler.ru站点(俄文:Рамбле...

网络小虾米
26分钟前
4
0
技术分享 | slave_relay_log_info 表认知的一些展开

作者:胡呈清 slave_relay_log_info 表是这样的: mysql> select * from mysql.slave_relay_log_info\G *************************** 1. row *************************** Number_of_lin......

爱可生
28分钟前
3
0
nginx配置http访问自动跳转到https

server {listen 80;server_name www.域名.com;rewrite ^(.*) https://$server_name$1 permanent;}server {listen 443;server_name www.域名.com;root /home/www;ssl on;......

很好亦平凡ms
28分钟前
4
0
SpreadJS:一款中国研发的类Excel开发工具,功能涵盖Excel的 95% 以上

Excel 作为一款深受用户喜爱的电子表格工具,借助其直观的界面、出色的计算性能、数据分析和图表,已经成为数据统计领域不可或缺的软件之一。 基于Excel对数据处理与分析的卓越表现,把Excel...

葡萄城技术团队
28分钟前
3
0
用javafx框架tornadofx做了个天气预报的程序

class WeatherApp : App(WeatherView::class)class WeatherView : View("十五天天气预报") { val weatherVM: WeatherViewModel by inject() val controller: WeatherController by......

oschina4cyy
32分钟前
4
1

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部