使用ScaleBy方法为TMonthCalendar

Question

我使用ScaleBy方法在运行时扩展/缩小我的应用程序的表单。它适用于几乎所有组件，但不适用于TMonthCalendar。 有没有办法使用ScaleBy或任何其他方法扩大TMonthCalendar？

Answer 1

它可以工作; y如果你禁用主题。您还需要进行尺寸更改才能使其正常工作

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

感谢@Sertac提示

Answer 2

MonthCalendar控件有一个固定的大小，你不能改变这个大小.. 低宽度尺寸定义为225像素，高宽度定义为450像素。