引言: 請問各位大大: 如何得到到新增的表單物件的Edit.Text值 如下程式碼: TForm *Form2; //宣告一個視窗 Form2=new TForm(this); //動態建立視窗,this是指此物件Form TEdit *Edit1; //宣告一個Edit Edit1=new TLabel(this); //動態建立Edit,this是指此物件Edit Edit1->Parent=Form2; //將Edit放在Form2上 Edit1->Caption="Good"; Form2->ShowModal(); //顯示Form2 delete Edit1; delete Form2;

a120803 你好: 你的程式碼好像有點錯誤，我順便改成以下這樣 < class="code"> TForm *Form2; //宣告一個視窗 Form2=new TForm(this); //動態建立視窗,this是指此物件Form Form2->Caption="Form2"; TEdit *Edit1; //宣告一個Edit Edit1=new TEdit(this); //動態建立Edit,this是指此物件Edit Edit1->Parent=Form2; //將Edit放在Form2上 // Edit1->Caption="Good"; Form2->ShowModal(); //顯示Form2 // 在這裡就可以得到 Edit1->Text 例如: ShowMessage(Edit1->Text); delete Edit1; delete Form2; -- Enjoy Researching & Developing --

引言: 謝謝大大: 如果動態新增多個按鈕在動態新增的表單上,如何判定使用者是但哪一個按鈕ㄋ

a120803 你好:
(1)假設現在只要動態在 Form1 建立 2 個 TButton (btn1, btn2)，先在你的
   TForm1 class 裡面加入以下的宣告(Unit1.h)
   TButton *btn1;
   TButton *btn2;
   void __fastcall ButtonClick(TObject *Sender);
(2)在動態 create 這 2 個 TButton 的時候，把 OnClick event procedure
   指向同一個，範例程式碼如下:
   btn1=new TButton(Application);
   btn1->Parent=this;
   btn1->ButtonClick;
   btn1->Caption="btn1";
   btn1->Left=100;
   btn1->Top=100;
   btn2=new TButton(Application);
   btn2->Parent=this;
   btn2->ButtonClick;
   btn2->Caption="btn2";
   btn2->Left=200;
   btn2->Top=100;
(3)接著就是實作 ButtonClick 這個 event procedure 了，範例程式碼如下:
   void __fastcall TForm1::ButtonClick(TObject *Sender)
   {
      ShowMessage(((TButton*)Sender)->Caption);
   }
(4)這樣子就可以知道是哪一個 Button 被按到了
    -- 
        

引言: 謝謝大大: 如果動態新增多個按鈕在動態新增的表單上,如何判定使用者是但哪一個按鈕ㄋ

引言: 謝謝大大: 但是用了前一個人的方法卻得不到執行的結果ㄝ 程式碼如下: TForm *Form2; //宣告一個視窗 Form2=new TForm(this); //動態建立視窗,this是指此物件Form AnsiString a; TLabel *Label2; //宣告一個Label2 Label2=new TLabel(this); //動態建立Label2,this是指此物件Label2 Label2->Parent=Form2; //將Label2放在Form2上 Label2->Caption="Good"; TButton *Button2; Button2=new TButton(this); Button2->Parent=Form2; if((TButton*)Sender==Button2) { ShowMessage("Good luck"); } Form2->ShowModal(); //顯示Form2 delete Label2; delete Button2; delete Form2; }