我在做这样的功能:
鼠标在cxgridDBTableView上停留一定时间 就弹出提示窗口,显示关联的数据,要求截取WM_MOUSEHOVER事件.
我在自定义的Memo里也做过一模一样的功能,但是这些写在CXGRIDTABLEVIEW里就不起作用,不知道是怎么回事,请高手指点.
procedure TsmiMemo.SetTrackMouseEvent;
var
TmeHov: TTrackMouseEvent;
begin
ZeroMemory(@TmeHov,sizeof(TmeHov)); TmeHov.cbSize := sizeof(TmeHov);
TmeHov.dwFlags := TME_HOVER;
TmeHov.hwndTrack := handle;
TmeHov.dwHoverTime := 1000; TrackMouseEvent(TmeHov);
end;procedure TsmiMemo.WMMouseMove(var msg: TWMMouse);
begin
SetTrackMouseEvent;
end;procedure TsmiMemo.WMMouseHover(var msg: TWMMouse);
begin
....
end;
鼠标在cxgridDBTableView上停留一定时间 就弹出提示窗口,显示关联的数据,要求截取WM_MOUSEHOVER事件.
我在自定义的Memo里也做过一模一样的功能,但是这些写在CXGRIDTABLEVIEW里就不起作用,不知道是怎么回事,请高手指点.
procedure TsmiMemo.SetTrackMouseEvent;
var
TmeHov: TTrackMouseEvent;
begin
ZeroMemory(@TmeHov,sizeof(TmeHov)); TmeHov.cbSize := sizeof(TmeHov);
TmeHov.dwFlags := TME_HOVER;
TmeHov.hwndTrack := handle;
TmeHov.dwHoverTime := 1000; TrackMouseEvent(TmeHov);
end;procedure TsmiMemo.WMMouseMove(var msg: TWMMouse);
begin
SetTrackMouseEvent;
end;procedure TsmiMemo.WMMouseHover(var msg: TWMMouse);
begin
....
end;
解决方案 »
- 键盘钩子 Dll 通过 SendMessage 向主程序传递指针参数
- 无边框,无任务栏显示的窗口怎么做!?
- 哪位仁兄帮下忙,如何用Delphi编程实现禁用或启用某个端口?
- 在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!急!急!急!急!急!
- 如何用程序实现动态配置SQL Server 2000 ODBC数据源驱动程序、数据库,和表
- 寻找vcl控件?
- 关于Delphi方面的网址
- OnMouseWheel事件是什么意思?
- 关于:本人开发了一个功能强大的软件,类似冰河,但我的比冰河强点是,能自动侦测上线用户,棒极了,要吗?留个邮箱,决不食言。因为公司上了宽带。
- 求助﹕哪位大哥能提供非试用版的activeskin或与activeskin功能相近的控件下载站点!(美化控件)﹗﹗
- 请问在DELPHI中用ADO连VFP,将SQL中的数据导入到DBF文件中
- delphi7在vista下操作system32文件夹的问题
程序要求cxGridDBTableView触发WM_MOUSEHOVER消息,但是这个消息应该要在WM_MOUSEMOVE里追踪
同样用在Memo里就可以
不知道哪里有问题,郁闷中...