请教，获取窗体宽度方法。

[ynquan]

delphi窗体设计时width：=1024。
但是运行期间，如果分辨率大于1024，获取到的宽度为1024.
如果分辨率小于1024，获取到的宽度为屏幕分辨率了。

我请教的问题是获取到的窗体宽度是设计时的宽度，跟屏幕分辨率没有关系。
我先谢谢了。

[p47655255]

窗体大小发生变化了 width肯定变化，想获得设计时的，可以定义一个常量在源码中记录一下

[ynquan]

这个我也想到过。但是最好还是代码得到。不然太麻烦。

[p47655255]

FormCanResize事件里面可以获取

[hongss]

这个跟你的BorderStyle有关系，可以做个小Demo测试下。

如果设置正确，可以在FormCreate里边取到原始设计宽度，否则是会发生变化的

[lyhoo163]

Self.Width
Self.Height

[ynquan]

1， 在 Delphi中FormCanResize事件找不到。

2，BorderStyle测试后没有变化。

3，Self.Width，Self.Height 这个用过但是分辨率小于1024，获取到的宽度为屏幕分辨率了。

[kenlewis]

窗体的BorderStyle设置成bsDialog或者bsNone就可以了。

[ynquan]

引用 7 楼 kenlewis 的回复:

窗体的BorderStyle设置成bsDialog或者bsNone就可以了。

这个方法可以谢谢了。
结贴给分