RooyeeMessenger 2.3.1 源码加入VclSkin 5.60编译的问题

廉飞捷
2023-12-01

在RmDataSkin.pas单元中有如下procedure:

procedure TmodSkin.SkinMenu(valForm: TCustomForm);
begin
  {$IFDEF VclSkin}
  if valForm <> nil then
    FSkin.UpdateMenu(valForm);
  {$ENDIF}
end;


将 FSkin.UpdateMenu(valForm);改成  FSkin.UpdateMenu(TForm(valForm));即可编译通过。

 类似资料: