lcl: fix typo (issue #0014063)

git-svn-id: trunk@27087 -
This commit is contained in:
paul 2010-08-13 08:44:26 +00:00
parent 7dbd789466
commit df7e1829b2

View File

@ -4588,7 +4588,7 @@ begin
MouseEventMessage := TLMMouseEvent(TheMessage);
MouseEventMessage.X := P.X;
MouseEventMessage.Y := P.Y;
Dispatch(MouseEventMessage);
Control.Dispatch(MouseEventMessage);
MouseMessage.Result := MouseEventMessage.Result;
end
else