【结】文件系统提供者"TInterceptFileSystemProvider"已经注册

huixiangtao

设置断点，初始化运行的时候，每一次走到断点处之后，就走不下去了，按F7、F8，都不管用。并提示错误：文件系统提供者"TInterceptFileSystemProvider"已经注册。
怎么回事？

atiger

忽略它能继承吗？
另外，把服务和Studio重新启动一下，看看是否就ok了

huixiangtao

虽然出这个问题，我还是把代码调通了。
现在有另外一个问题。
TFEcalendar这个控件怎么很奇怪呢，我在这个控件上关联了一个popmenu，popmenu的右键单击事件如下：
procedure TMainForm.N2Click(Sender: TObject);
var
  i, j,k,l: Integer;
  p: TPoint;
  ADate,BDate: TDateTime;
  Query3:TQuery;
begin
Borland.Delphi.Windows.GetCursorPos(p);
  p := FECalendar1.ScreenToClient(p);
  i := FECalendar1.GetXCol(p.X);
  j := FECalendar1.GetYRow(p.Y);
  ADate:= FECalendar1.GetCellDate(i, j);
dialogs.ShowMessage('您目前选择的日期是 '+sysutils.DateToStr(ADate) );  
end;
我在8月10号这个小格子里面右击，鼠标在这个格子中上部时才显示对话框：您目前选择的日期是2009-8-10.
鼠标在这个格子的中部稍稍偏下的地方右击，就显示对话框：您目前选择的日期是2009-8-17.
这是怎么回事呢？

zfang

楼主，不是这个控件怪。这个问题在于，你在鼠标右键，弹出菜单，通过点击这个菜单时才去执行这个计算当前日期的。而这个计算当前选择的日期是通过鼠标的位置来获取到日期单元的。那么问题就出来了。

你可以尝试一下，你鼠标无论在这个日期单元格的上下左右处右击弹出菜单，只要你最终点击这个菜单时保证这个鼠标位置在这个单元格内都是正确的。

所以，解决方法就是在这个日期控件的onmousedown中提前把当前日期得到。

huixiangtao

哦，确实这样。多谢，此问题解决，结贴吧！