我現有兩張圖 256X224 與 100X123 我要如何讓這兩張圖成等比例的放大呢？ 謝謝！！

hjlin你好， 如果你只是要單純的放大的話， 這裡有個範例可以參考一下: 在form上加一個button和一個image button按一下，image就會大0.1倍    

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     Image1->Stretch=true;
     Image1->Height *=1.1;
     Image1->Width *=1.1;    }

有什麼問題，再提出來討論吧 我剛剛發現這樣會有誤差，我再把程式改一下 國泰平安 發表人 -

hjlin您好:   

引言:我要如何讓這兩張圖成等比例的放大呢？

您可以參考下面連結RaynorPao版主的方式 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=32450 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 -

hjlin你好， 因為要避免圖片變形，所以我把程式改為以下: 兩個button，一個是放大0.1倍，一個是縮小0.1倍 兩個edit顯示目前的size  

 
//全域變數
int KeepImageHeight;
int KeepImageWidth;
double Multiple;
//-----------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{         KeepImageHeight=Image1->Height;
     KeepImageWidth=Image1->Width;
     Multiple =1;
     Image1->Stretch=true;
}    //--------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{        Multiple  =0.1;
    Image1->Height =KeepImageHeight * Multiple;
    Image1->Width  =KeepImageWidth * Multiple;        Edit1->Text = IntToStr(Image1->Height);
    Edit2->Text = IntToStr(Image1->Width);    }
//-------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    Multiple -=0.1;        Image1->Height =KeepImageHeight * Multiple;
    Image1->Width  =KeepImageWidth * Multiple;        Edit1->Text = IntToStr(Image1->Height);
    Edit2->Text = IntToStr(Image1->Width);
}
//-----------------------------------------------------------------    

國泰平安

原來是指圖檔本身實體大小的改變， 不是指在form上面的圖檔顯示， 我會錯意了 呵 國泰平安