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

如何讓自己纏產生的元件有 popup menu?

尚未結案
wsxcv123
一般會員


發表:36
回覆:27
積分:12
註冊:2004-11-10

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-23 12:54:50 IP:61.222.xxx.xxx 未訂閱
我做了一個元件,inherits TCustomControl. 如何讓他可以有 popupmenu 呢? .h class package CMyComponent: TCustomCOntrol { public: TPopupmenu *FPopupmenu; void __fastcall SetPopupMenu(TPopupMenu* value); __published: __property TPopupMenu *PopupMenu = {read = FPopupMenu, write = SetPopupMenu}; } .cpp void __fastcall CMyComponent::SetPopupMenu(TPopupMenu* value) { FPopupmenu = value } //form.cpp CMyComponent *a = new CMyComponent(this); a->PopupMenu = PopupMenu1; 我是這樣寫,可是沒有反應ㄟ
m8815010
版主


發表:99
回覆:372
積分:289
註冊:2003-11-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-24 14:44:57 IP:61.63.xxx.xxx 未訂閱
引言: 我做了一個元件,inherits TCustomControl. 如何讓他可以有 popupmenu 呢? .h class package CMyComponent: TCustomCOntrol { public: TPopupmenu *FPopupmenu; void __fastcall SetPopupMenu(TPopupMenu* value); __published: __property TPopupMenu *PopupMenu = {read = FPopupMenu, write = SetPopupMenu}; } .cpp void __fastcall CMyComponent::SetPopupMenu(TPopupMenu* value) { FPopupmenu = value } //form.cpp CMyComponent *a = new CMyComponent(this); a->PopupMenu = PopupMenu1; 我是這樣寫,可是沒有反應ㄟ
wsxcv123你好: 你好像沒有 class="code"> .h中 ~~ class TMyMemo : public TMemo { __published: private: public: TPopupMenu *MyPopMenu; //定義子元件有一個TPopupMenu void __fastcall SetPopupMenu(TPopupMenu* MenuName); //設定使用此PopupMenu的事件 __fastcall TMyMemo(TComponent* Owner); //新TMemo元件的constructor,必寫 }; .cpp中 ~~ __fastcall TMyMemo::TMyMemo(TComponent* Owner) //TMyMemo的constructor撰寫 : TMemo(Owner) { this->MyPopMenu=new TPopupMenu(this); //在這new這個PopupMenu子元件 } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) //測試使用 { TMyMemo* m=new TMyMemo(this); //叫出一個TMyMemo物件 m->Parent=this; m->SetPopupMenu(m->MyPopMenu); //設定MyMemo的popupmenu,讓它有popupmenu可用 } //--------------------------------------------------------------------------- void __fastcall TMyMemo::SetPopupMenu(TPopupMenu* MenuName) { TMenuItem* itm=new TMenuItem(this); MenuName->Items->Add(itm); //定義PopupMenu上面要用的MenuItem itm->Caption="Test"; this->PopupMenu=MenuName; //最後還要把MyMemo的PopupMenu屬性指給它才行 } All,精神是這樣的,參著參著!
wsxcv123
一般會員


發表:36
回覆:27
積分:12
註冊:2004-11-10

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