Delphi_新增功能之手势编程.docVIP

Delphi 2010 最抢眼的新功能可能就是支持触摸屏了, 它包括一个 可触控的软键盘 和识别不同的触屏手势.因为手势同时支持鼠标, 所以没有触摸屏的我也可以尝试一下其大多数的功能. 首次尝试的步骤:1、加 TGestureManager 控件如窗体: GestureManager1;2、设置窗体属性 Touch.GestureManager := GestureManager1; {下面程序是在设计时指定的属性}3、添加窗体的 OnGesture 事件, 随便写点什么;4、然后运行程序, 用鼠标随便在窗体上 划 几下... 第一个测试程序完成了! 测试代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, GestureMgr; type TForm1 = class(TForm) GestureManager1: TGestureManager; procedure FormCreate(Sender: TObject); procedure FormGesture(Sender: TObject; const EventInfo: TGestu