程序忙时,鼠标变做漏斗状,如何实现当前程序不在响应鼠标的点击事件?急急!!(100分)

  • 主题发起人 主题发起人 microrain
  • 开始时间 开始时间
M

microrain

Unregistered / Unconfirmed
GUEST, unregistred user!
程序运行过程中需要鼠标变做漏斗状,不再接受任何鼠标信息(只限于我自己的程序).
自己设置Screen.Cursor:=crHourGlass,程序还是可以响应鼠标的点击事件。
怎么样才能不让程序在这个时候响应呢?
 
你想实现什么功能?
 
说一下具体要实现的内容
 
要想不响应mouse event可以override 其消函数
 
要不function BlockInput (fBlockInput : boolean) : DWord;
stdcall;
external 'user32.DLL';
BlockInput(true);

 
up.............
 
后退
顶部