uses Forms;
然后之间使用
Screen.Width
Screen.Height;
然后之间使用
Screen.Width
Screen.Height;
解决方案 »
- 如何将网页做到EXE文件里面,类似于chm电子书
- 请问:Tcontrol 与 Tcomponent 的区别
- 在DbgridEh中可否增加一个数据库中没有的字段显示文本字符串,并且实现每1秒钟无闪烁的刷新?
- combobox
- 从前辈的来的代码,请各位解释一下,特别是由标号的行,谢谢
- 文件播放完毕以后,如何释放mediaplayer的路径
- 第三方控件ralibRalib 2.01 如何安装上啊?请帮忙装一下
- Delphi7中如何解决unsafe code '@operator'和unsafe type 'Pansichar'
- 我翻完了CSDN的贴子,也没有找到答案?TREEVIEW的问题,谁能帮我????高分赠送
- 请教各位仁兄义姐,如何把读得的文本文件的一行赋给一个字符数组变量?
- 关于combobox很简单的问题
- 有没有南京的朋友,有无收到邀请函,4.3到金陵饭店去听李维的Webservices讲座去!
贴出你的程序,现在已经不是Screen.width的问题了。
var
i,j:integer;
begin
i := screen.width;
j := screen.height;
showmessage(format('%d,%d',[i,j]));//uses i,j
end;
var
a,b:integer;
begin
i := screen.width;
j := screen.height;
end;