我是用Delphi6 在1024x768 桌面寫的程式 ，當然程式畫面大小也差不多跟1024x768 差不多大，但是有些電腦為800x600 ，我要如何讓我的程式能自動縮放在(1024x768 ~ 800x600 ) 或是如果有人設的不一樣，可以跟著縮放程式畫面呢??    ======================= 謝謝各位大德不吝賜教!! 小弟感激不進 =======================

------
願
南無藥師琉璃光如來
保佑您

你可以利用 Screen.Width & Screen.Height 取得當前解析度啦 不過，沒那麼美好可以自動縮放，這部份得自己來.... 其實... 還有 Small Font & Large Font 的問題.... >"< 視窗程式就是這點令人討厭，唉....

以下為檢查是否為 800 X 600 如不是就設定為800 x 600 程式結束時再改回來 old_Windows_Width :=screen.width ; old_Windows_Height :=screen.height ; if (old_Windows_Width<>800) or (old_Windows_Height<>600) Then DynamicResolution(800, 600) ; function DynamicResolution(X, Y: word): BOOL; var lpDevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, lpDevMode); if Result then begin lpDevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; lpDevMode.dmPelsWidth := X; lpDevMode.dmPelsHeight := Y; Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL; end; end;

這要自己重新計算每個元件擺放的位置 例如原本 Button1 的 Top 和 Left 分別是 X1, Y1 如果 Form 解析度從 1024 x 768 轉到 800x600, 新的 X2, Y2 為 X1 := Button1.Top; Y1 := Button1.Left; X2 = X1 * 600 div 768; Y2 = Y1 * 800 div 1024; Button1.Top := X2; Button1.Left := Y2; 沒有簡便的作法, 建議您最好將程式畫面控制在 800x600 內 ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

>>可以跟著縮放程式畫面呢 EasySize 依照視窗大小自動調整內容物大小 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19173 試試看還不錯用!!

完整的簡單範例    

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  Form1_Old_Height , Form1_Old_Width : Integer;
  Form1_New_Height , Form1_New_Width : Integer;      Button1_Old_Top , Button1_Old_Left : Integer;
  Button1_New_Top , Button1_New_Left : Integer;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
begin
  // 先紀錄所有元件位置 和 原來 Form 大小
  Form1_Old_Height := Form1.Height;
  Form1_Old_Width := Form1.Width;      Button1_Old_top := Button1.Top;
  Button1_Old_Left := Button1.Left;    end;    procedure TForm1.FormResize(Sender: TObject);
begin      Form1_New_Height := Form1.Height;
  Form1_New_Width := Form1.Width;      Button1_New_top := Button1_Old_top * Form1_New_Height  div Form1_Old_Height;
  Button1_New_Left := Button1_Old_Left * Form1_New_Height  div Form1_Old_Height;      Button1.Top:= Button1_New_top;
  Button1.Left:= Button1_New_Left;    end;    end.    

********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

謝謝各位的解答< > 我要再次請問一下< > Dear jeffreck 你提到的 EasySize 物件，我也試著加入我的程式但是沒有效果出來， 不知我用法對不對，可否有明確的加入EasySize 物件的範例或用法‧ Dear pcboy2 你所提到的使用方式是要將我程式中所有使用到的元件，都要加入你寫的範例中 FormCreate & FormResize 是不是‧ < >謝謝你們冗長的回覆 ======================= 謝謝各位大德不吝賜教!! 小弟感激不進< > =======================

------
願
南無藥師琉璃光如來
保佑您

對 小弟沒用過 EasySize 元件, 不知功能如何, 支援哪幾個版本 Delphi 或支援哪些元件 (3rd Party 元件支援嗎 ?) , 自己控制最保險 ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

引言: Dear jeffreck 你提到的 EasySize 物件，我也試著加入我的程式但是沒有效果出來， 不知我用法對不對，可否有明確的加入EasySize 物件的範例或用法‧

//先設定好原設計尺寸 可在 FormCreate self.Width :=800; self.Height:=600; self.FormResizer1.InitializeForm ; ------------- //改為目前尺寸 可在 FormShow self.Width :=1024; self.Height:=768; self.FormResizer1.ResizeAll; 它有原始碼可以參考看看 另外 在DBCtrlGrid會有問題要修正一下 但DBCtrlGrid 也少人用

請參閱這邊 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=60013 豬寶寶有寫了一個小範例 ^^

謝謝各位喔< > 豬寶寶的你的程式真是短小精幹< >讚的啦< > ======================= 謝謝各位大德不吝賜教!! 小弟感激不進< > =======================

------
願
南無藥師琉璃光如來
保佑您