mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-30 00:11:51 +02:00
parent
7dbd789466
commit
df7e1829b2
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user