線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2753
推到 Plurk!
推到 Facebook!

請問BCB有類似VB裡"物件陣列"的功能嗎??

尚未結案
july
一般會員


發表:18
回覆:17
積分:7
註冊:2003-07-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-07-31 10:37:41 IP:203.74.xxx.xxx 未訂閱
請問各位.. 若我要在Form1產生n個Image..並用陣列的方式產生 就像Image[0],Image[1],Image[2].....Image[n] 並在Form1上顯示這些Image的圖片.... 請問要怎麼做呢??
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-07-31 11:52:10 IP:140.135.xxx.xxx 未訂閱
july您好:  試試下面的code
 
TImage *ima[9];
 int i,j,k;
 for(j=0;j<3;j  )
 {
  for(i=0,k=0;i<3;i  ,k  )
  {
   ima[k]= new TImage(this);
   ima[k]->Parent=Form1;
   ima[k]->AutoSize=false;
   ima[k]->Left=(25 90*j);
   ima[k]->Top=(20 90*i);
   ima[k]->Height=89;
   ima[k]->Width=89;
   ima[k]->Visible=true;
  }
 }
 ima[0]->Picture->LoadFromFile("test.bmp");
順心 <>~我也是在學習的階段,回答的不好請您多多見諒與指教~
brian7003
一般會員


發表:1
回覆:2
積分:0
註冊:2003-07-20

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-08-15 11:06:09 IP:210.68.xxx.xxx 未訂閱
那如果要觸發事件呢?~~~~    那要怎麼寫ㄚ?~~~    例如 Button
李國維
高階會員


發表:42
回覆:287
積分:235
註冊:2003-02-07

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-08-22 09:51:38 IP:61.62.xxx.xxx 未訂閱
在.h中宣告 private: void __fastcall ImgOnClick(TObject *Sender); 在.CPP中 TImage *ima[9];  int i,j,k;  for(j=0;j<3;j ) { for(i=0,k=0;i<3;i ,k ) { ima[k]= new TImage(this); ima[k]->Parent=Form1; ima[k]->AutoSize=false; ima[k]->Left=(25 90*j); ima[k]->Top=(20 90*i); ima[k]->Height=89; ima[k]->Width=89; ima[k]->Visible=true; ima[k]->OnClick = ImgOnClick;//所有Imageㄉonclick事件 ima[k]->Tag = k; } } //============================================== void __fastcall TForm1::ImgOnClick(TObject *Sender) { int i; i = ((TImage*)Sender)->Tag; //i就表示第幾各image //============Codeing Here===================== }
李國維
高階會員


發表:42
回覆:287
積分:235
註冊:2003-02-07

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-08-22 09:52:03 IP:61.62.xxx.xxx 未訂閱
在.h中宣告 private: void __fastcall ImgOnClick(TObject *Sender); 在.CPP中 TImage *ima[9];  int i,j,k;  for(j=0;j<3;j ) { for(i=0,k=0;i<3;i ,k ) { ima[k]= new TImage(this); ima[k]->Parent=Form1; ima[k]->AutoSize=false; ima[k]->Left=(25 90*j); ima[k]->Top=(20 90*i); ima[k]->Height=89; ima[k]->Width=89; ima[k]->Visible=true; ima[k]->OnClick = ImgOnClick;//所有Imageㄉonclick事件 ima[k]->Tag = k; } } //============================================== void __fastcall TForm1::ImgOnClick(TObject *Sender) { int i; i = ((TImage*)Sender)->Tag; //i就表示第幾各image //============Codeing Here===================== }
系統時間:2024-07-02 2:54:42
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!