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

TPopupMenu元件問題

缺席
tree.tw
一般會員


發表:6
回覆:7
積分:2
註冊:2008-04-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-07-15 18:16:43 IP:202.39.xxx.xxx 訂閱
各位先進:

小弟請教一個問題,我在TlistView上面設定一個TPopupMenu menuitem,用途在於點選資料列會跳出一個menu可以刪除該筆資料列,相關的程式及設定都寫好了,
但程式執行時,那個menu一直跳不出來,不曉得哪裡出問題了。要跳出menu需要哪邊還要做設定呢,謝謝

謝謝!!
編輯記錄
tree.tw 重新編輯於 2008-07-16 08:36:17, 註解 無‧
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-07-15 21:49:55 IP:220.141.xxx.xxx 訂閱
可否列出部分程式碼。
------
努力會更接近成功
tree.tw
一般會員


發表:6
回覆:7
積分:2
註冊:2008-04-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-07-16 08:30:04 IP:202.39.xxx.xxx 訂閱

===================引 用 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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-07-16 10:21:56 IP:203.67.xxx.xxx 訂閱
程式碼中的 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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2008-07-16 10:47:24 IP:202.39.xxx.xxx 訂閱
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

發送簡訊給我
#6 引用回覆 回覆 發表時間:2008-07-16 10:55:06 IP:202.39.xxx.xxx 訂閱
自問自答,找不到地方觸發,以這個方向來看就找到問題了,在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 的行為。
系統時間:2024-03-28 17:30:45
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!