起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 243|回复: 8

【急】鼠标鼠标进入和离开窗体的时候做某个动作(在Delphi中已经实现了)怎么把这段代码

[复制链接]
发表于 2010-3-19 14:33:01 | 显示全部楼层 |阅读模式
代码如下 :
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
  private
    { Private declarations }
     procedure   CMMouseEnter(var   msg:tmessage);message   CM_MOUSEENTER;
     procedure   CMMouseLeave(var   Message:   TMessage);   message   CM_MOUSELEAVE;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure   TForm1.cmmouseenter(var msg:tmessage);
begin
  label1.Caption :='鼠标进入';
end;

procedure   TForm1.CMMouseLeave(var   Message:   TMessage);
begin
  label1.Caption :='鼠标离开';
end;


end.
回复

使用道具 举报

发表于 2010-3-19 14:37:20 | 显示全部楼层
强烈要求高手们解决此贴!顶起...
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-19 16:03:28 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2010-3-19 16:07:25 | 显示全部楼层
.
回复 支持 反对

使用道具 举报

发表于 2010-3-19 16:11:29 | 显示全部楼层
根据我的经验,这种需求在x3这种窗体布局上是不好实现的,所以最好提前转换思路。
回复 支持 反对

使用道具 举报

发表于 2010-3-19 16:14:34 | 显示全部楼层
楼主, 感觉此帖是 http://bbs.justep.com/forum.php?mod=viewthread&tid=31809  这个帖子的续,在31809上 lixy已经说了,这样的东东实现有问题,想问一下原始的业务需求,这样我们好结合平台给出更适合的方法。

你的意思是在平台上打开了一个excel 文件后,想在windows下,直接打开某个文件夹下的excel呢?还是。。。?
回复 支持 反对

使用道具 举报

发表于 2010-3-19 17:24:40 | 显示全部楼层
试试如下解决办法:
(1)试试看在Form的 BizFormMouseMove 事件里面来判断鼠标的位置是否在窗体内来进行判断。
(2)可以在系统中单独声明一个系统级全局变量,同时还可以通过设置一个临时变量来保存修改前的值,在系统运行时就初始化一个状态;在打开相应窗体时设置相应的状态值;比如说:如果打开的窗体A设置为100;打开窗体B设置为200;当这个值变化时(两个变量比较一下)就对它的状态进行判断,设置相应的属性不就行了么。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-20 13:01:50 | 显示全部楼层
就是6楼的意思。。。
我怎么才知道我的鼠标或者焦点还在不在平台的窗体上,
7楼的我想过了,如果在Windows中打开的话
那么全局变量是不会改变的
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-22 11:38:37 | 显示全部楼层
还有什么别的方案不?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 04:40 , Processed in 0.042187 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表