大哥，help me 800*600=======>1024*768

Question

我在800*600 下的程式如何在1024*768 下显示的好看，有没办法 
100送

Answer 1

参照：
http://expert.csdn.net/Expert/topic/1761/1761296.xml?temp=.1598627
http://expert.csdn.net/Expert/TopicView1.asp?id=1787438**********************************************
*等我有钱了，我就站在天安门广场挨个给大家发钱*
**********************************************

Answer 2

使窗体适应不同的显示分辨率
unit Unit_FormScale;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  //假设在800*600的分辨率下设计窗体，则常数定义如下：
  ScreenWidth=800;
  ScreenHeight=600;
var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  Scaled := True;
  if (screen.Width<>ScreenWidth) then
  begin
    Height := LongInt(height)*longInt(Screen.height)div ScreenHeight;
    Width := LongInt(Width)*LongInt(screen.width)div ScreenWidth;
    ScaleBy(Screen.width,ScreenWidth);
  end;
end;end.

Answer 3

ljmanage(过客) 的方法可以，不过效果不太好
 还有form的字符集要设为国标，字体为宋体scale也要改一下

Answer 4

要不然设置窗口的Scaled为False