使用ScaleBy和Margin进行Delphi缩放

时间:2018-04-26 08:39:02

标签: delphi

我正在尝试为highdpi监视器扩展我的表单。我尝试使用Scaled := True自动执行此操作,并使用Scaled := False手动执行并调用ScaleBy

似乎Margin的值(例如TSpeedButton)没有改变,现在文本显示为其他内容。

我将TLabelTSpeedButton放在彼此之下并调整Margin的{​​{1}},以便文本从同一像素开始。工作在96dpi(100%)。

但是,缩放表单会重新定位TSpeedButton并且TLabel保持不变。这是正确还是错误?

在tMySpeedButton中覆盖ChangeScale是解决这个问题的唯一方法吗?

0 个答案:

没有答案