//---------------------------------------------------------------------------
#include 
#pragma hdrstop    #include "Unit1.h"
//-------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;    class fly_shape {  
  private:         
  int x,y;
  int direction,level;
  int status;
  TShape *obj;
  public:
   fly_shape(TComponent*AOwner,int x1,int y1,int lev,int dire):x(x1),
y(y1),level(lev),direction(dire){
obj=new TShape(AOwner);      
   obj->Left=x;                 
   obj->Top=y;                         obj->Width=20;              
   obj->Height=20;              
   obj->Brush->Color=clBlue;   //慢速圖形設定為藍色
   obj->Shape=stCircle;         //設定圖形的形狀為圓形
   status=0;
  }
  void active(){                //設定圖形狀態
   status=1;
   obj->Parent=Form1;
}
  void move()
  {                  
        if(status==1)
        {
                if(obj->Top<100){
                        obj->Top=y;
                }
                if(obj->Left<100){
                        obj->Left=x;
                }
                if(obj->Left>500){            
                        obj->Left=x;
                }
                if(obj->Top>400){       //判斷圖形是否移到最下方
                        obj->Top=y;
                }
        }
  }
};
fly_shape *obj1[20];            //宣告元件指標陣列
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner){}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender){...}
void __fastcall TForm1::Timer1Timer(TObject *Sender){...}
//---------------------------------------------------------------------------

引言: 小弟剛踏入這塊領域 各位見笑了 class fly_shape定義中有Obj->Left,Obj->Top,...這些Obj->(*)資訊在那裡有(眼拙 help沒找著) 小弟是想找有關於滑鼠事件的 例如TForm1::Button1Click這樣的東西

pecachu你好： 你的範例程式中的 >!

引言: 謝謝版主 我想TImage就可以了 剛開始抓不準要用什麼原件 見笑了 不過也想請教如果真有需要在TShape下增加click相關事件時的方法 不知是否可提供相關資訊~~

pecachu你好 嗯，簡單舉一個 class="code"> In .h ~~ class TForm1 : public TForm { __published: // IDE-managed Components TShape *Shape1; private: // User declarations TWndMethod OldShapeWndProc; //add this line void __fastcall ShapeWndProc(TMessage& Message); //add this line public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; ~~ In .cpp ~~ TForm1 *Form1; int i=0; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { OldShapeWndProc = Shape1->WindowProc; Shape1->WindowProc = ShapeWndProc; } //--------------------------------------------------------------------------- void __fastcall TForm1::ShapeWndProc(TMessage& Message) { OldShapeWndProc(Message); if (Message.Msg==WM_LBUTTONDOWN) this->Caption=IntToStr( i); //檢查是否真的有偵測到click動作 } ~~ 大概就這樣，參著!