在程式執行時, 要如何讓使用者自己決定Button的尺寸大小呢? 希望的效果如下: http://home.pchome.com.tw/service/problems/resize.avi 先謝謝大家的回答了

看不到檔案 不過大概這樣就可以了吧

用一個TEDIT給使用者輸入就好啦

Btn->Width = edit->Text.Toint();

要用拖曵的話簡單點像這樣：
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1DragOver(TObject *Sender, TObject *Source,
int X, int Y, TDragState State, bool &Accept)
{
Accept=true;
Button1->Width = X ;
Button1->Height = Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDragOver(TObject *Sender, TObject *Source,
int X, int Y, TDragState State, bool &Accept)
{
Accept=true;
Button1->Refresh();
Button1->Width = X ;
Button1->Height = Y;
}
//---------------------------------------------------------------------------
自已再慢慢修吧，
請以dragover為關鍵字蒐尋