Напоминает сильно прошлую историю с другими компонентами:
http://www.alphaskins.com/forum/index.p ... topic=6105проблему обезвредил, но очень надеюсь на исправление:
Index: GridsEh.pas
===================================================================
@@ -3972,9 +3972,14 @@
procedure TCustomGridEh.CalcDrawInfo(var DrawInfo: TGridDrawInfoEh);
begin
+
if HandleAllocated
- then CalcDrawInfoXY(DrawInfo, ClientWidth, ClientHeight)
- else CalcDrawInfoXY(DrawInfo, Width, Height);
+ then begin
+ try
+ CalcDrawInfoXY(DrawInfo, ClientWidth, ClientHeight) ;
+ except
+ end;
+ end else CalcDrawInfoXY(DrawInfo, Width, Height);
end;
procedure TCustomGridEh.CalcDrawInfoXY(var DrawInfo: TGridDrawInfoEh;
@@ -7547,6 +7552,7 @@
begin
CheckCellMouse := CheckCellMouseClick(Message);
inherited;
+ try
if CheckCellMouse then
begin
CalcDrawInfo(DrawInfo);
@@ -7562,6 +7568,8 @@
CellMouseClick(CellHit, mbLeft, ShiftState, ARect, GridMousePos, CellMousePos);
end;
end;
+ except
+ end;
end;
procedure TCustomGridEh.WMRButtonDblClk(var Message: TWMRButtonDblClk);