請問各位前輩 要指定Form上面各元件(Component)的尺寸與排列 除了以Form1->ClientHeight(ClientWidth)的比例來決定之外 有什麼其他的方式嗎? 發表人 - taishyang 於 2003/12/24 17:26:50

可否再將您的問題說明清楚？ 下列的回應看是不是您要的： http://delphi.ktop.com.tw/topic.php?topic_id=26525

謝謝enu!我的做法如下 ScrollBox1->Height=Form1->ClientHeight*95/100; ScrollBox1->Width=Form1->ClientWidth*82/100; ScrollBox1->Top=(Form1->ClientHeight - ScrollBox1->Height)/8; ScrollBox1->Left=(Form1->ClientWidth - ScrollBox1->Width)/9; 我想跟版主所說的方法類似，只是我沒有把它定義而直接用 我想看看是不是有其他的方法，能把介面做到像一般市販的程式一樣美觀 還有，請教一下版主所說的window stateu該如何確認 我是用WindowState=wsMaximized;讓form直接最大化，再用Break執行程式之後去看ClientHeight(Width)的值 不好意思，我是自學的，問的問題可能有點～ 請多包含

Dear piemomoka 您可以參考 Form1->SetBounds(0,0,800,600); Edit1->SetBounds(0,0,400,300); 希望沒誤解您的意思

Dear piemomoka     您直接去確認應該就好啦...^^    

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(WindowState == wsMaximized )
                ShowMessage("wsMaximized");
        else if(WindowState == wsNormal )
                ShowMessage("wsNormal");
        else if(WindowState == wsMinimized )
                ShowMessage("wsMinimized");
}
//---------------------------------------------------------------------------
 

謝謝CuteBabyBoy! 看一下說明大概知道SetBounds可以設定元件的上下左右邊界 可是還是不會用ㄟ 我要做上面這個圖，例如下面這樣 Form1->SetBounds(0,0,800,700); PaintBox1->SetBounds(10,10,610,510); Button1->SetBounds(750,650,775,665); BitBtn1->SetBounds(700,650,725,665); GroupBox1->SetBounds(300,600,500,650); RadioButton1->SetBounds(310,610,365,640); RadioButton2->SetBounds(370,610,425,640); RadioButton3->SetBounds(430,610,485,640); 設定各元件的邊界嗎? 我想要讓PaintBox1隨著Form的Resize改變大小 並讓那些Button保持相對位置，有什麼容易的方式嗎? 麻煩你指導一下，謝謝

Dear piemomoka     您可以參考下面做法... 如果是 Object(Button) 上的字 ，可能還要再處理    

     __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
        Form1->SetBounds(0,0,640,480);
        ObjectResize();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
        ObjectResize();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ObjectResize(void)
{
        Button1->SetBounds(Form1->Width / 3,(Form1->Height / 5)*1,Form1->Width / 3,  Form1->Height / 5);
        Button2->SetBounds(Form1->Width / 3,(Form1->Height / 5)*3,Form1->Width / 3,  Form1->Height / 5);
}
//---------------------------------------------------------------------------