delphi - 对TMonthCalendar使用ScaleBy方法

我正在使用ScaleBy方法在运行时按比例放大/缩小应用程序的窗体。它适用于几乎所有组件，但不适用于TMonthCalendar。
有没有一种方法可以使用ScaleBy或任何其他方法来放大TMonthCalendar？

最佳答案

它可以工作；如果禁用主题，则为y。您还需要更改尺寸以使其正常工作

SetWindowTheme(MonthCalendar1.Handle, '', '');
MonthCalendar1.ScaleBy(190, 100);
MonthCalendar1.Width := MonthCalendar1.Width + 1;
MonthCalendar1.Width := MonthCalendar1.Width - 1;

感谢@Sertac的提示

关于delphi - 对TMonthCalendar使用ScaleBy方法，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/19648052/