現在我的程式可以經由觸發一個按鈕的事件而動態地產生另一個新的按鈕 但是我卻沒辦法於程式內撰寫此新的按鈕的觸發事件 請問是否有方法可以先於按鈕產生前 就寫好它的觸發事件程式呢 請各位大大們幫忙 謝謝囉

piny您好: 請參考下面的code

//*.h
class TForm1 : public TForm
{
__published:        // IDE-managed Components
        TButton *Button1;
        void __fastcall Button1Click(TObject *Sender);
private:        // User declarations
public:                // User declarations
     void __fastcall MyBtnClick(TObject *Sender);
        __fastcall TForm1(TComponent* Owner);
};
//*.cpp    void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TButton* MyBtn=new TButton(this);
 MyBtn->Parent=Form1;
 MyBtn->Width=200;
 MyBtn->Caption="我是動態產生的按鈕";
 MyBtn->MyBtnClick;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MyBtnClick(TObject *Sender)
{
 ShowMessage("我被按到了");
}

順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

感謝您的回覆 令我程式更進一步了 但我想在觸發程式用到動態配置的屬性 卻會發生錯誤 請問有辦法可以避免嗎 感恩~~~

piny您好:

引言: 但我想在觸發程式用到動態配置的屬性 卻會發生錯誤 請問有辦法可以避免嗎

能否說的更具體一點,我功力尚淺不太了解您的意思 或是 > <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

我的程式範例如下 //--------------------------------------------------------------------    #include  #pragma hdrstop #include "Unit1.h" //-------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //-------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //-------------------------------------------------------------------- //-------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { TButton *my = new TButton(Form1); my->Parent = Form1; my->OnClick = myClick; my->Caption = "Test"; //mybtn = my; my->Show(); } //-------------------------------------------------------------------- void __fastcall TForm1::myClick(TObject *Sender) { my->Enabled = false; } 上面紅色的字會發生錯誤 它會說my沒有被定義 不知我該如何解決呢 謝謝~~~

piny您好:  請改成下面這樣

TButton *my;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 my = new TButton(Form1);
 my->Parent = Form1;
 my->OnClick = myClick;
 my->Caption = "Test";
//mybtn = my;
 my->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::myClick(TObject *Sender)
{
 my->Enabled = false;
}

順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

taishyang您好,    假若我將程式設計修改如下 #include  #pragma hdrstop #include "Unit1.h" //-------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; bool creat_flag = false; //-------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //-------------------------------------------------------------------- TButton *my; //-------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Button1->Enabled = false; creat_flag = true; } //-------------------------------------------------------------------- void __fastcall TForm1::myClick(TObject *Sender) { my->Enabled = false; } void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if(creat_flag) { my = new TButton(Form1); my->Parent = Form1; my->OnClick = myClick; my->Caption = "Test"; my->Left = X; my->Top = Y; my->Show(); creat_flag = false; Button1->Enabled = true; } } //-------------------------------------------------------------------- 當我compiler後執行它 我先創造一個動態按鈕A 先不要按它 再創造一個動態按鈕B 然後去按A 可是會變成B被Enabled的值被改為false 請問是否可以分辨我按的是哪一個鈕呢 謝謝~~~~ 我是一個

piny您好: 請改成下面這樣,其餘剩下的請自己解決囉 < class="code"> void __fastcall TForm1::myClick(TObject *Sender) { my->Enabled = false; if (((TButton*)Sender)->Name=="Btn1") ShowMessage("Btn1被按到了!"); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if(creat_flag) { static int i=1; my = new TButton(Form1); my->Parent = Form1; my->Name="Btn" IntToStr(i); my->OnClick = myClick; my->Caption = "Btn" IntToStr(i); my->Left = X; my->Top = Y; my->Show(); creat_flag = false; Button1->Enabled = true; i ; } } //--------------------------------------------------------------------------- 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 -

piny你好，請麻煩在張貼程式的時候，使用上方「#」按鈕來張貼， 如果不懂，請看一下以下文章說明~ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38270 這是新手必看~    以免造成大家幫你看程式的不便~ 版主

taishyang您好    感謝您的幫助 我了解該如何撰寫程式了 我將宣告按鈕陣列 然後再將它一個一個創造並分別 然後就可以動作囉\^^/    真的很感謝您的大力幫忙    ~~~~

請問如果是SUI裡面的suiImageButton的話要怎麼使用動態button的方法呢？
因為直接套用進來會沒有任何東西顯示