瀏覽代碼

* fix broken getmouseevent

git-svn-id: trunk@3592 -
florian 19 年之前
父節點
當前提交
d427da09d5
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      rtl/inc/mouse.inc

+ 2 - 1
rtl/inc/mouse.inc

@@ -148,7 +148,8 @@ begin
   else
     If Assigned(CurrentMouseDriver.GetMouseEvent) Then
       begin
-      LastMouseEvent:=MouseEvent;
+        LastMouseEvent:=MouseEvent;
+        CurrentMouseDriver.GetMouseEvent(MouseEvent);
       end
     else
       FillChar(MouseEvent,sizeof(TMouseEvent),0);