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

jianth2005

代码如下 ：
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.

Set_qing

强烈要求高手们解决此贴！顶起...

jianth2005

顶

lixy

.

lixy

根据我的经验，这种需求在x3这种窗体布局上是不好实现的，所以最好提前转换思路。

atiger

楼主， 感觉此帖是 http://bbs.justep.com/forum.php?mod=viewthread&tid=31809  这个帖子的续，在31809上 lixy已经说了，这样的东东实现有问题，想问一下原始的业务需求，这样我们好结合平台给出更适合的方法。

你的意思是在平台上打开了一个excel 文件后，想在windows下，直接打开某个文件夹下的excel呢？还是。。。？

amao800613

试试如下解决办法：
（1）试试看在Form的 BizFormMouseMove 事件里面来判断鼠标的位置是否在窗体内来进行判断。
（2）可以在系统中单独声明一个系统级全局变量，同时还可以通过设置一个临时变量来保存修改前的值，在系统运行时就初始化一个状态；在打开相应窗体时设置相应的状态值；比如说：如果打开的窗体A设置为100；打开窗体B设置为200；当这个值变化时（两个变量比较一下）就对它的状态进行判断，设置相应的属性不就行了么。

jianth2005

就是6楼的意思。。。
我怎么才知道我的鼠标或者焦点还在不在平台的窗体上，
7楼的我想过了，如果在Windows中打开的话
那么全局变量是不会改变的

jianth2005

还有什么别的方案不？