即在一个800*600的显示器下做的form能在1024*728的显示器下不变形什么办?
解决方案 »
- 一个奇怪的问题
- 自己的代码如何改,才能将Image显示的图像以JPG格式和Image的显示的大小写入数据库
- 在DELPHI中使用ADOQUERY控件怎么获取最大值,最小值,平均值,总和
- fastreport3如何打印余行格子
- 关于数据库与treeview1的问题
- datagrid的数据源问题?
- 100分求MAC 9(或以上)操作系统的截图(上面要有Button,comombox..等等),想要做一个MAC风格的控件
- DBGRID与ADODATASET的问题
- 不得不再问这个关于treeview的问题,问了好久了,难道没有高手?
- 一个小问题!!!!!!!!!!!!!!!!
- 求助!
- 在Delphi中如何读写远程数据库,在线等待。。。。。
(相对位置一样)
上搜索"分辩率"关键字。
我有。
可以按照这个思路去干吧procedure TfrmMain.FormCreate(Sender: TObject);
begin
if Screen.Width >= 800 then
begin
frmMain.Height := 500;
frmMain.Width := 650;
end;
if Screen.Width >= 1024 then
begin
frmMain.Height := 650;
frmMain.Width := 900;
end;
end;
是否有错?自己看看Font
http://www.csdn.net/expert/topic/623/623455.xml?temp=.5327722
mainfrm.Scaled:=TRUE;
if (screen.width<>orignwidth) then
begin
height:=longint(height)*longint(screen.height) div orignheight;
width:=longint(width)*longint(screen.width) div orignwidth;
scaleby(screen.width , orignwidth);
end;