delphi中的事件和消息

原创 2012年03月21日 10:35:19
 

                       delphi中的事件和消息

windows事件和消息机制

Delphi消息处理机制

键盘事件

鼠标事件

1、  windows事件和事件驱动程序编程

处理windows发往应用程序的消息一直是传统windows编程的关键内容之一,深刻理解windows的消息机制是编写出优秀windows应用程序的基础。

事件是组件的重要组成部分,它是连接对应的系统事件和为此而编写的代码。

不需要大量编程,这个时候组件封装了系统事件。

2、  windows的消息处理机制

消息是win发出的通知,它告诉应用程序某个事件发生了,win并不通知应用程序完成什么工作,而只是通知应用程序发生了什么。

一个应用程序一旦启动,Windows便为该应用程序建立一个消息队列(message queue),开始且陆续地将与该应用程序有关的消息加入它的队尾。应用程序则要逐个地将其消息队列中的队头消息取出,筛选出有用的消息,再指派给某个窗口过程,由其对消息进行处理和做出响应。从某种意义上讲,Windows的应用程序不过是一个消息处理器。事件就是被消息所驱动的。每个应用程序内部必定有一段循环程序,负责检索其消息队列,这段特殊的程序称为消息循环(message loop)。

windows消息系统的组成

消息队列(卖家):Windows为每个应用程序维护一个消息队列。应用程序从消息队列中获取消息,然后分派给某个窗口。

消息循环(中介):应用程序循环地从消息队列中检索消息,再把它分派给适当的窗口,然后继续从消息队列中检索下一条消息,再分派给适当的窗口,循环进行。

窗口过程(消费者):每个窗口都有一个窗口过程来接收传递给它的消息,它的任务就是获取消息然后响应它。窗口过程是一个回调函数,处理了一个消息后,它通常要返回一个值给Windows。

windows中消息的数据结构

消息的数据结构在Windows中被定义为如下的记录类型:

TMessage = record

Msg: Cardinal;

WParam:Word;

LParam: Longint;

Result: Longint;

end;

消息定义为如下的TMsg记录类型:

TMsg = packed record

hwnd: HWND;

message: UINT;

wParam: WPARAM;

lParam: LPARAM;

time: DWORD;

pt: TPoint;

end;

                            Delphi消息处理机制

1、  delphi的消息处理机制

所有Delphi提供的对象都有内建的消息处理机制。其基本思想是:对象接收某些类型的消息,并发送出去,继而调用一组与该消息相关的消息处理方法。若调用消息的特定方法不存在,则Delphi调用缺省处理。

当某个事件满足触发条件时,就会发送特定的消息到Windows系统消息队列。Delphi为应用程序中每种类型的组件注册了名为WinWndProc的方法作为窗口过程。窗口过程同时包含了异常处理模块、完成从Windows到名为WndProc的虚方法的消息记录传送、并调用应用程序对象的HandleException方法处理异常。

2、  发送消息

function SendMessage(hWnd:HWND; Msg:UINT;

wParam:WPARAM; lParam:LPARAM):LRESULT; stdcall;

function PostMessage(hWnd:HWND; Msg:UINT;

wParam:WPARAM; lParam:LPARAM): BOOL; stdcall;

3、  响应消息

方法1. 覆盖组件继承的虚拟方法WndProc

procedure TNewComponent.WndProc(varmessage:TMessage);

begin

if message.Msg = 需要过滤的消息then

begin

// 此处编写处理过滤消息代码

exit;

end;

inheritedWndProc(message);

dispatch(message);

end;

方法2. 覆盖组件继承的虚拟方法

DefaultHandler

在继承类中对DefaultHandler过程进行覆盖,同样可以实现类似于前一种方法的消息过滤。

方法3. 自定义消息和消息处理方法

Windows预定义了1024个编码从$0000到$03FF的消息常量标识符,留出从$0400到$7FFF的编码空间用于用户自定义消息。其中的$0400已定义为WM_USER。因此,自定义消息常量标识符的形式如下:

const

WM_UserMsgName = WM_USER + N; // 其中,

0<=N<=31743

方法4. TApplication的OnMessage事件

每当应用程序从消息队列中检索到一个消息时,便触发Application的OnMessage事件。由此,在消息被派送到对其响应和处理的目标对象之前,有机会处理该消息。

                           键盘事件

关于键盘

在计算机发展过程中,一开始是就使用键盘作为输入方式,在DOS环境中,大多只有判断键盘是否单击,以及单击的是哪个键,在Windows之中,可以判断键盘单击的事件有三种如下图所示:

在这些事件中,OnKeyDown和OnKeyUp都会传入用户单击的Key值(word值),可以利用这些值,来判断用户按了哪些键,而这些值代表了Windows中的Virtual Key Code。而OnKeyPress所返回的是一个Char值,代表一个ASCII字符。ASCII字符和Virtual Key Code是不相同的,因为Virtual Key Code中有代表ASCII的字符,但ASCII字符不包含全部的Virtual Key Code,因为Virtual Key Code中内含了很多功能键。

1.OnKeyDown

当按下键盘上的任一个键时,就会触发此事件。如字母键、数字键、功能键(F1~F12)、Ctrl键、Shift键或Alt键等,都将产生一个OnKeyDown事件。

2.OnKeyPress

当用户单击ASCII字符的键盘时,就是说当按下键盘上的一个字符键,如字母键、数字键等会产生一个OnKeyPress事件,但是单独按下功能键(F1~F12)、Ctrl键、Shift键或Alt键等,不会产生OnKeyPress事件。

3.OnKeyUp

当按下键盘上的任一个键后松开时,都会产生一个OnKeyUp事件。对于功能键(F1~F12)、Ctrl键、Shift键或Alt键等,也会产生一个OnKeyUp事件。

4.检测功能键

在组件的OnKeyDown、OnKeyUp、OnMouseDown和OnMouseUp等事件的处理过程中,有一个TShiftState类型的变量Shift,TShiftState类型定义如下:

Type

TShiftState=setof(ssShift,ssAlt,ssCtrl,ssLeft,ssRight,ssMiddle,ssDouble);

根据Shift的值就可以判断当键盘上的键按下时Shift、Alt和Ctrl键的状态,或者按下鼠标左键、中键时的状态或者是否双击了按键。当然,如果有OnMouseDown事件发生了,而又不是按下左键和中键,则按下的一定是右键。

1.常用鼠标事件

(1)OnClick:当用户单击鼠标任何一个键时,就会触发此事件。

(2)OnMouseDown:当用户单击鼠标时,就会触发此事件。

(3)OnMouseMove:当用户单击鼠标在对象上移动时,就会触发此事件,但停止就不触发了。

(4)OnMouseUp:当鼠标的某个按键按下,然后松开后会产生一个此事件。

在这些事件中,OnMouseDown和OnMouseUp都会触发事件,但是在用户单击时,可能会移动鼠标位置,使得两者被触发的对象不同的,但OnClick和OnMouseDown是会触发在同一个对象上的。当用户在对象A按一下时,A会同时触发OnMouseDown OnClick OnMouseUp OnMouseMove当用户在对象A单击但在对象B放开时,A会触发OnMouseDown OnMouseMove OnMouseUpB会触发OnMouseMove因此如果要触发OnClick事件,就必须要在一个对象按一下才行,否则只会有OnMouseDown、OnMouseMove、OnMouseUp这些事件。

2.拖放事件

(1)OnDragDrop:在拖曳事件开始时会触发此事件。

(2)OnDragOver:当拖曳对象跨过一个组件时会触发此事件。

(3)OnEndDrag:当拖曳事件结束后会产生触发此事件。

具体过程如下:

(1) 拖曳操作开始

大多数的组件具有DragMode属性,表示开始拖曳操作的方式。DragMode属性的缺省值为dmManual,也就是要在被拖动组件的OnMouseDown事件的处理过程中调用BeginDrag过

程才开始拖曳操作。如果将DragMode属性设置为dmAutomation,则鼠标左键在被拖动组件上按下后就自动开始拖曳操作。

(2)接受拖曳操作

当拖动一个组件经过第二个组件的时候,第二个组件会产生一个OnDragOver事件。在该事件的处理过程中有一个布尔类型的参数,该参数的设置直接影响是否产生OnDragDrop事件。一般情况下,在OnDragOver事件的处理过程中,根据参数Source判断拖曳操作的源。如果是可以接受的源,则将Accept参数设置为True;否则,将其设置为False。

(3)处理拖曳操作

在第二个组件OnDragDrop事件处理过程中,根据拖曳操作的源做一些相应的处理。

(4)拖曳操作结束

拖曳操作完成后释放鼠标左键,会在第一个组件中产生一个OnEndDrag事件,可以根据参数Target的数值进行相应的处理。如果参数Target的值为nil,则表示拖曳操作没有被接受如果Target的值不为nil,则Target的值就是接受拖曳操作的组件。

3.滚轮事件

(1) OnMouseWheel:当用户单击滚轮按钮时,就会触发此事件。

(2) OnMouseWheelDown:当用户用滚轮按钮向下转动时,就会触发。

(3) OnMouseWheelUp:当用户滚轮按钮向上转动时,就会触发。

相关文章推荐

消息转化为控件的事件

  • 2012年04月05日 10:24
  • 25KB
  • 下载

消息事件说明文档

  • 2016年02月18日 15:08
  • 485KB
  • 下载

深入了解Delphi 7中的四种消息框

Delphi中平常使用的消息框有四种形式,有ShowMessage、MessageDlg、Application.MessageBox、MessageBox。...
  • akof1314
  • akof1314
  • 2011年03月17日 17:30
  • 23787

鼠标事件的Windows消息

  • 2014年01月08日 10:19
  • 1KB
  • 下载

delphi写QQ消息群发(模拟按键精灵)

本文只供学习研究,不能用于非法用途,转载请保留本文链接。 本文地址:http://blog.csdn.net/sushengmiyan/article/details/8774780 使用函数:E...

windows消息事件程序设计(实例)

  • 2011年04月29日 18:01
  • 2.3MB
  • 下载

Delphi XE2 编写的----基于消息的单线程TCP服务器

//这是一个基于消息的单线程TCP服务器//这个程序的可以实现的功能是// 1.每秒钟向客户端发送一个随机数// 2.如果客户端有什么输入的话,// 在输入的前面加上长度把源来的输入原封不变的反馈给客...
  • cust_hf
  • cust_hf
  • 2013年07月15日 19:01
  • 819
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi中的事件和消息
举报原因:
原因补充:

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