您现在的位置:主页 > 网络编程 > NET编程 >

关于 OnMouseWheelDown、OnMouseWheelUp 等事件的简单例子

来源:建站吧 责任编辑:Jzq8 发表时间:2011-12-23 点击:

测试准备, 在空白窗体上添加 Memo1 和 Button1, 然后激活 Form1 的如下事件(巅枫同学关心的):

  OnMouseEnter、OnMouseLeave、OnMouseWheel、OnMouseWheelDown、OnMouseWheelUp, 还用到其 OnCreate 事件.

  然后根据如下测试代码, 一试便知:

 unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 
 
type 
  TForm1 = class(TForm) 
    Memo1: TMemo; 
    Button1: TButton; 
    procedure FormCreate(Sender: TObject); 
    procedure FormMouseEnter(Sender: TObject); 
    procedure FormMouseLeave(Sender: TObject); 
    procedure FormMouseWheel(Sender: TObject; Shift: TShiftState; 
      WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); 
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState; 
      MousePos: TPoint; var Handled: Boolean); 
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState; 
      MousePos: TPoint; var Handled: Boolean); 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Memo1.ScrollBars := ssBoth; 
  Self.AutoScroll := True; 
end; 
 
procedure TForm1.FormMouseEnter(Sender: TObject); 
begin 
  Memo1.Lines.Add('Form1_OnMouseEnter'); 
end; 
 
procedure TForm1.FormMouseLeave(Sender: TObject); 
begin 
  Memo1.Lines.Add('Form1_OnMouseLeave'); 
end; 
 
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; 
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); 
begin 
  Memo1.Lines.Add('Form1_OnMouseWheel'); 
end; 
 
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; 
  MousePos: TPoint; var Handled: Boolean); 
begin 
  Memo1.Lines.Add('Form1_OnMouseWheelDown'); 
  Button1.Top := Button1.Top - 4; 
end; 
 
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; 
  MousePos: TPoint; var Handled: Boolean); 
begin 
  Memo1.Lines.Add('Form1_OnMouseWheelUp'); 
  Button1.Top := Button1.Top + 4; 
end; 
 
end. 

    发表评论
    请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
    评价:
    表情:
    验证码:点击我更换图片

    推荐图文

    • 构建高性能ASP.NET站点
    • ASP.NET MVC 3.0学习系列文章—NuGet and ASP.NET MVC 3.0
    • (asp.net c#)DropDownList绑定后显示对应的项的两种方法
    • Silverlight中同步调用WebClient的解决办法,是同步!
    • vs.net 2010 扩展插件小结 提高编程效率
    • 一起学WP7 XNA游戏开发(七. 3d基本光源)
    • 一起学WP7 XNA游戏开发(八. 让3d model动起来)
    • 一起学WP7 XNA游戏开发(六. 3d Model的载入)
    • 一起学wp7 XNA游戏开发(三. 一 SpriteFont)
    Alexa - 客户服务 - 联系方法 - 招聘信息 - 友情链接 - 网站地图 - TAG标签 - RSS订阅
    Copyright © 2010-2012 JZQ8.COM. 建站吧|建站去吧 版权所有
    冀ICP备09002514号
    冀ICP备09002514号 网络报警 企业法人营业执照 中国互联网协会 支付宝付款 网银在线付款