怎樣使窗體大小改變時，其上的控件也按比例改變？看了一些文章說的很玄，但是運行牠的代碼卻實現不了？ 那位做過給個詳細的説明及源代碼？謝謝

blck您好:  您可以參考下面的連結 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29206 【發表】如何讓Form中的元件跟隨Form放大自動調整相對位置 BY dllee http://delphi.ktop.com.tw/topic.php?topic_id=18143 如何讓Form中的元件自動跟隨Form放大縮小? BY 領航天使 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

謝謝啊

@@!  根據領航天使的範例 , 它程式中最重要的那一行      ScaleBy(表單目前寬度,先前表單的寬度);    會造成程式只會改變表單(Form)寬度時才會變更Form所屬元件的長寬比例~~ (這點玩家可以試著玩範例然後只改變Form的高度就可以明瞭)    另外 dllee 的範例       this->Constraints->MinHeight=this->Height;   this->Constraints->MinWidth=this->Width;      for(int i=0;iComponentCount;i ) { TControl *control=dynamic_cast(this->Components[i]); if(control!=NULL) control->Anchors.Clear(); } 根據試驗後的結果發現元件會隨Form的長寬變換位置 可是... 所有元件的長寬都不變 總結 , 只要稍微修正一下領航天使的範例改成如下列的程式碼,就可以達到不錯的resize效果 .. ---------------------------------------------------------------- sample code : ScaleBy( 表單長度 * 表單寬度 , 先前表單長度 * 先前表單寬度 ) ; ----------------------------------------------------------------- 可是細心的玩家試玩之後一定會發現當你將Form往右下作調整視窗作右下動作時約大於某個比例之後, Form會開始會出現很討厭的垂直向捲軸....... 因此必須在修正一下剛剛的code 改成如下的範例會達到近乎完美的表現~ ScaleBy(sqrt(表單長度*表單寬度), sqrt(先前表單長度*先前表單寬度 )) ; // sqrt是取平方根的函式 , bcb玩家需icnlude math.h 完整的Builder程式範例~~ int oh,ow ; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { ow = Form1->Width; oh = Form1->Height; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormResize(TObject *Sender) { ScaleBy(sqrt( Form1->Width * Form1->Height), sqrt(ow * oh )) ; ow = Form1->Width; oh = Form1->Height; }

哈囉大大們 小第一個程式碼的問題請看程式碼 __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { ow = Form1->Width; oh = Form1->Height; } ========================================================== 這是建構子，是物件剛開始建立時都會呼叫的，可是在這好像不只 被呼叫一次吧，我想請問大大"什麼時後"才會呼叫它呢，不是物件建 立剛開始就會呼叫，之後就不會呼叫了嗎?這個跟 ============================================================== void __fastcall TForm1::FormCreate(TObject *Sender) { } ================================================================ 應該一樣的吧???

謝謝iamjcl啊 真是好人啊我原來沒有注意這個問題 真是不求甚解啊 再次對iamjcl表示誠摯的感謝