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

PopupMenu陣列的問題..

尚未結案
pika2005
初階會員


發表:27
回覆:48
積分:25
註冊:2005-02-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-03-02 22:59:52 IP:218.162.xxx.xxx 未訂閱
問題詳述:當我在DBGrid變更資料時,所在的tPopupMenu的一個Item->Enabled =true...而我問題出在這段..假如我先點DBGrid[1]時,這時PopupMenu[1]的 Enabled有改變..然後再去看PopupMenu[1]的Item..沒有改變..可是一去點DBGrid[0]時,就出問題了..Message:Access violation at address.. void __fastcall TChildFrame::DBGridKeyPress(TObject *Sender, char &Key) { tPopupMenu[PageControl1->ActivePageIndex]->Items->Items[0]->Enabled = true; } 以下是部分程式碼: int i=0; TTabSheet* TabSheet[Max]; TDBGrid* DBGrid[Max]; TPopupMenu **tPopupMenu; TMenuItem* tNewItem; void __fastcall TChildFrame::N3Click(TObject *Sender) { TabSheet[i] = new TTabSheet(PageControl1); TabSheet[i]->Name = AnsiString("TabSheet") IntToStr(i); DBGrid[i] = new TDBGrid(TabSheet[i]); DBGrid[i]->Name = AnsiString("DBGrid") IntToStr(i); tPopupMenu=new TPopupMenu*[Max]; tPopupMenu[i] = new TPopupMenu(this); tPopupMenu[i]->Name = AnsiString("APopupMenu") IntToStr(i); tNewItem = new TMenuItem(tPopupMenu[i]); tNewItem->Name = "PopupMenuItems" IntToStr(i); tNewItem->Caption = "復原上一步"; tNewItem->Enabled = false; tPopupMenu[i]->Items->Add(tNewItem); TabSheet[i]->PageControl = PageControl1; TabSheet[i]->Caption = "" OpenDialog1->FileName; TabSheet[i]->PopupMenu = tPopupMenu[i]; DBGrid[i]->Parent = TabSheet[i]; DBGrid[i]->OnKeyPress = DBGridKeyPress; i ; } void __fastcall TChildFrame::DBGridKeyPress(TObject *Sender, char &Key) { tPopupMenu[PageControl1->ActivePageIndex]->Items->Items[0]->Enabled = true; }
系統時間:2024-05-12 0:19:12
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!