delphi - Windows Message lparam转换

Question

如何将值转换为与Windows消息中lparam相同的形式？

X := SMALLINT(lParam and $FFFF);
Y := SMALLINT((lParam shr 16) and $FFFF);

所以lparam在Word中转换。如何进行反向转换？

Answer 1

您可以在MakeLParam()单元中使用Windows函数，这将使代码更易于编写和理解。