全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:883
推到 Plurk!
推到 Facebook!

PopupMenu選單的問題

尚未結案
qaeroman
一般會員


發表:6
回覆:6
積分:2
註冊:2003-06-19

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-09-11 09:55:06 IP:218.166.xxx.xxx 未訂閱
各位大大好: 小弟有兩個問題不得其解,請各位大大賜教 1.我在程式中動態產生Image的元件並load圖片,我想設定Image->PopupMenu的 選單,是否有什麼方法或屬性能設定PopupMenu下選單? 2.我想設計程式能按一次Button就動態產生一個Image元件,那是否可讓程式 依序設定變數的名稱,如ImageA、ImageB、ImageC(或Image1、 Image2....).... 謝謝!
dllee
站務副站長


發表:321
回覆:2519
積分:1711
註冊:2002-04-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-09-19 09:54:58 IP:61.224.xxx.xxx 未訂閱
您的第2個問題是動態產生物件及動態設定物件屬性,這類的文章在站內已有一些可以參考,而第一個問題如果要按每一個 Image 物件在選單按下去要作不同的事時,可以參考以下的 code
TImage *ImageObject;
int ImageIndex;
//----------------------------------------------------------------------------//    void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  // 以 MouseUp 的事件叫用 PopupMenu1,同時設定是那一個 Image 物件所觸發的,
  // 如此在 PopupMenu1 選單中,即可使用 ImageObject 來對每一個 Image 作不同的處理。
  ImageObject=(TImage *)Sender;
  TPoint pt=ImageObject->ClientToScreen(TPoint(X,Y));
  PopupMenu1->Popup(pt.x,pt.y);
}
//----------------------------------------------------------------------------//    void __fastcall TForm1::Button1Click(TObject *Sender)
{ // 動態產生 Image 物件
  TImage *newImage=new TImage(this);
  newImage->Name="Image" IntToStr(  ImageIndex); // 指定 Name
  newImage->Parent=this;
  newImage->Left=10*ImageIndex;
  newImage->Top=10*ImageIndex;
  newImage->Width=100;
  newImage->Height=100;
  newImage->Picture->LoadFromFile("test.bmp");
  newImage->Image1MouseUp;  // 動態設定事件
}
//----------------------------------------------------------------------------//
// 以下是 popup 選單的選項工作,可以對 ImageObject 按其 Name 屬性
// 作不同的處理
void __fastcall TForm1::Show1Click(TObject *Sender)
{
  ShowMessage("Show " ImageObject->Name);
}
//----------------------------------------------------------------------------//
void __fastcall TForm1::Hide1Click(TObject *Sender)
{
  ShowMessage("Hide " ImageObject->Name);
}
//----------------------------------------------------------------------------//
沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....
------
http://www.ViewMove.com
qaeroman
一般會員


發表:6
回覆:6
積分:2
註冊:2003-06-19

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-09-21 17:32:57 IP:218.166.xxx.xxx 未訂閱
多謝版大指點,受益匪淺。
系統時間:2024-11-25 3:40:58
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!