热盼各位大哥帮忙

Question

我做了一个东西，做的时候采取的分辨录是1024*768，可他们拿去用的时候的分辨录是800*600，所以有些东西就看不到，不知道有什么方法可以解决，愿闻其详，先谢了。

Answer 1

scaled:=true;
scaleby(800, 1024);

Answer 2

1,加个TScrollBox，然后把所有东西放在它里面，这样，在800X600下，会产生一个滚动条，可以看到、
2、按800X600进行设计
3、使用memo代替edit，设置它的align

Answer 3

procedure TForm1.FormShow(Sender: TObject);
begin
 screen.Width:=800;
 orignwidth:=1024;
 scaled:=true;
 scaleby(screen.width , orignwidth);
end;每个form都得加,所以建议继承

Answer 4

上面我的代码不正确
你在1024下，开发
rocedure TForm1.FormShow(Sender: TObject);
begin
 orignwidth:=1024;
 scaled:=true;
 scaleby(screen.width , orignwidth);
//screen.width在800*600  为600改变效果，在1024*768下为1024不做改变。
//缺点：字体大小不能变化
end;

Answer 5

jinjazz先谢谢你，你的方法可以实现，但还是有一点问题就是字体出来后看起不怎么好看，想一下还有其他方法没有，如果没有也只能这样了。
可以交个朋友嘛QQ：15037448

Answer 6

你字体手动设置一下,因为DELPHI默认的系统字体和Windows的默认字体不一样.
一般都设置成宋体,