口口口口口口口口口口 口口口口口口口口口口 口口口口口口口口口口 口口口口口口口口口口 假設有4X10 這些圖 一開始是紅色 按兩下後是藍色 請問@@" 一定要為每張圖 寫按2下後會發生的動作嗎@@? 有沒有辦法宣告一次 讓這40個TImage按2下時 都做一樣的動作? [雖然用剪貼也蠻快 只是覺得不太好@@"]

------
時與不時的撿起身旁的拼圖碎片

不懂的部分 半解的部分 就像一塊拼圖
留於腦中 等待拼出完美解答的一天

這就是我的思路 我的創作方法
而我也接受 這作法所帶來的"代價" - 時間

給你一個範例

//---------------------------------------------------------------------------
// Unit1.h    #ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include 
#include 
#include 
#include <Forms.hpp>
#include 
#include 
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:        // IDE-managed Components
  TButton *Button1;
  TImage *Image1;
private:        // User declarations
public:                // User declarations
  __fastcall TForm1(TComponent* Owner);      void __fastcall ImageClick(TObject *Sender);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
/////////////////////////////////////////////////////////////////////////////
//---------------------------------------------------------------------------
//Unit1.cpp    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  for(int i = 0; i < ControlCount; i  )
  {
    AnsiString szClassName = Controls[i]->ClassName();
    if (szClassName == "TImage")
    {
      ((TImage*)Controls[i])->OnClick = ImageClick;
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageClick(TObject *Sender)
{
  ShowMessage("Click");
}
//---------------------------------------------------------------------------