delphi - 对 TMonthCalendar 使用 ScaleBy 方法

Question

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

Answer 1

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

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

感谢@Sertac 的提示

Answer 2

MonthCalendar 控件具有固定大小，您无法更改此大小。低宽度大小定义为 225 像素，高宽度定义为 450 像素。