線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1754
推到 Plurk!
推到 Facebook!

如何動態調整表單中每個元件的大小?

尚未結案
HelpFriend
一般會員


發表:9
回覆:9
積分:3
註冊:2004-03-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-10 08:26:56 IP:203.88.xxx.xxx 未訂閱
軟體在設計時已經確定了表單中每個元件的大小及相對位置,但用戶在使用時,因爲顯示解析度或使用習慣等原因,需要自己調節表單的大小,如何讓表單內的元件大小及相對位置也做配套調整? 謝謝!
pigbaby
初階會員


發表:2
回覆:84
積分:47
註冊:2002-09-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-06-10 08:52:26 IP:210.200.xxx.xxx 未訂閱
請參考這篇文章 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=60013
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-06-10 09:02:02 IP:202.62.xxx.xxx 未訂閱
您好﹗    將Form中需要自動調整大小的元件的Anchors屬性值中akLeft, akTop, akBottom, akRight子屬性值都設為True試試﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================
------
忻晟
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-06-11 12:27:44 IP:211.76.xxx.xxx 未訂閱
參考這篇 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=71461 努力會更接近成功
------
努力會更接近成功
HelpFriend
一般會員


發表:9
回覆:9
積分:3
註冊:2004-03-22

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-06-13 20:28:14 IP:203.88.xxx.xxx 未訂閱
謝謝幾位仁兄指點,使用PIGBABY兄的方法可以控制螢幕的大小,但字體的大小沒有根據計算的值進行調整,不知爲何, cashxin2002 的方法也可以動態調整大小,但字體也沒有一起變化 pceye兄的方法是採用一個新的元件,但我們公司的軟體已經基本完成,重新更換元件的工作量太大了, 有沒有不用安裝新的元件,就可以很好解決這個問題的方法,還請賜教
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-06-14 07:04:33 IP:220.131.xxx.xxx 未訂閱
試試下面的作法 class="code"> object Form1: TForm1 Left = 200 Top = 108 Width = 696 Height = 480 Caption = 'Form1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 TextHeight = 13 object NoBDEResizerPanel1: TNoBDEResizerPanel Left = 0 Top = 0 Width = 688 Height = 453 Align = alClient //不要忘記 Caption = 'NoBDEResizerPanel1' TabOrder = 0 AllowChanges = False Active = True object BitBtn1: TBitBtn //原有物件 Left = 520 Top = 352 Width = 137 Height = 73 Caption = 'BitBtn1' TabOrder = 0 end end end c. unit1.pas
 
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, CustomRP, NoBDERP;    type
  TForm1 = class(TForm)
    NoBDEResizerPanel1: TNoBDEResizerPanel;
    BitBtn1: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    end.
d.重新執行 C:\Program Files\Borland\Delphi x\Bin\Convert.exe unit1.txt 產生unit1.dfm e.重新編譯程式 如果以上的測試確實可以成功 那就可以寫一個批次加入新元件的程式了< > 記得先將原有的程式備份< > 努力會更接近成功
------
努力會更接近成功
系統時間:2024-07-04 1:26:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!