Office中国论坛/Access中国论坛

标题: 判断鼠标位置，自动隐藏窗体 API [打印本页]

作者: WTM1 时间: 2002-9-25 01:28
标题: 判断鼠标位置，自动隐藏窗体 API
判断鼠标位置，自动隐藏窗体
把程序作成两岸通形式的自动隐藏窗体其实很简单，只要截取CM_MOUSEENTER和CM_MOUSELEAVE消息，判断鼠标是否已经离开窗体区域来显示和隐藏窗体就可以了。在窗体声明的public段添加：
procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

实现段：
procedure TFormZDDiabolo.CMMouseEnter(var msg:TMessage);
begin
  inherited;
  //添加你自己的控制语句；
end;

procedure TFormZDDiabolo.CMMouseLeave(var msg: TMessage);
begin
  inherited;
  //添加你自己的控制语句；
end;

作者: wwsheng 时间: 2008-7-31 21:05
delphi!!??

作者: WUJI00 时间: 2014-6-7 16:07
.;.;j;;;;

作者: zwp 时间: 2014-8-23 09:29
高手呀

作者: Alashome 时间: 2015-6-16 08:44
good

作者: lintina892 时间: 2015-6-29 14:14
3Q3Q3Q3Q3Q3Q3Q3Q

作者: Lyc1985 时间: 2015-7-4 10:26
学习了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)