delphi中的事件和消息

 

                       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：当用户滚轮按钮向上转动时，就会触发。