TPopupMenu元件問題 |
缺席
|
tree.tw
一般會員 發表:6 回覆:7 積分:2 註冊:2008-04-11 發送簡訊給我 |
|
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
|
tree.tw
一般會員 發表:6 回覆:7 積分:2 註冊:2008-04-11 發送簡訊給我 |
===================引 用 pceyes 文 章=================== 可否列出部分程式碼。 [code delphi] procedure TformMain.Delete1Click(Sender: TObject); var iIndex:Integer; begin if TListView.Items.Count = 0 then exit; iIndex := TListView.Selected.Index; TListView.items[iIndex].Delete; end; [/code] 使用TPopupMenu 元件設定Delete1 的行為。 |
AndrewK
高階會員 發表:6 回覆:151 積分:161 註冊:2006-10-09 發送簡訊給我 |
程式碼中的 TListView 是一個 Class Name
應該是 TListView 改成 TListView 的 name 建議 再多做一個判斷 確認 ListView 是否有被選取了 ===================引 用 tree.tw 文 章=================== ===================引 用 pceyes 文 章=================== 可否列出部分程式碼。 [code delphi] procedure TformMain.Delete1Click(Sender: TObject); var iIndex:Integer; begin if TListView.Items.Count = 0 then exit; iIndex := TListView.Selected.Index; TListView.items[iIndex].Delete; end; [/code] 使用TPopupMenu 元件設定Delete1 的行為。
------
Just Do It ------------------------- 其實男生不是真的喜歡你不減肥,而是喜歡你愛吃還不肥;也不是真的喜歡你不化妝,而是喜歡你素顏也好看;也不是真的喜歡你瘦,而是喜歡你瘦卻有胸;也不是真喜歡你獨立,而是他忙的時候別煩他。女孩子,太認真你就輸了。 |
tree.tw
一般會員 發表:6 回覆:7 積分:2 註冊:2008-04-11 發送簡訊給我 |
ok,這我了解,只是在此以TListView代表,實際上程式有定義名稱。
我猜是否click這個動作找不到地方可以觸發。 ===================引 用 AndrewK 文 章=================== 程式碼中的 TListView 是一個 Class Name 應該是 TListView 改成 TListView 的 name 建議 再多做一個判斷 確認 ListView 是否有被選取了 ===================引 用 tree.tw 文 章=================== ===================引 用 pceyes 文 章=================== 可否列出部分程式碼。 [code delphi] procedure TformMain.Delete1Click(Sender: TObject); var iIndex:Integer; begin if TListView.Items.Count = 0 then exit; iIndex := TListView.Selected.Index; TListView.items[iIndex].Delete; end; [/code] 使用TPopupMenu 元件設定Delete1 的行為。 |
tree.tw
一般會員 發表:6 回覆:7 積分:2 註冊:2008-04-11 發送簡訊給我 |
自問自答,找不到地方觸發,以這個方向來看就找到問題了,在TListView的Events中指定Popmenu名稱即可。
謝謝!! ===================引 用 tree.tw 文 章=================== ok,這我了解,只是在此以TListView代表,實際上程式有定義名稱。 我猜是否click這個動作找不到地方可以觸發。 ===================引 用 AndrewK 文 章=================== 程式碼中的 TListView 是一個 Class Name 應該是 TListView 改成 TListView 的 name 建議 再多做一個判斷 確認 ListView 是否有被選取了 ===================引 用 tree.tw 文 章=================== ===================引 用 pceyes 文 章=================== 可否列出部分程式碼。 [code delphi] procedure TformMain.Delete1Click(Sender: TObject); var iIndex:Integer; begin if TListView.Items.Count = 0 then exit; iIndex := TListView.Selected.Index; TListView.items[iIndex].Delete; end; [/code] 使用TPopupMenu 元件設定Delete1 的行為。 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |