实现代码:
ShowMessage('屏幕的高为:'+IntToStr(Screen.WorkAreaHeight)+#13#10+'屏幕的宽为:'+IntToStr(Screen.WorkAreaWidth));1
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.039889097213745 seconds