Delphi TreeView原件 如何觸發TreeView子節點的事件? |
|
|
|
AsureNick
一般會員   發表：10 回覆：10 積分：4 註冊：2007-03-07 發送簡訊給我 |
|
|
Fishman
尊榮會員   發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
<textarea class="vb" rows="10" cols="60" name="code">
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if not (TTreeView(Sender).Selected = NIL) then
begin
if TTreeView(Sender).Selected.HasChildren then
begin
ShowMessage('父節點');
end
else
begin
ShowMessage('子節點');
end;
end;
end;
</textarea> Fishman
------
Fishman |
|
AsureNick
一般會員 發表：10 回覆：10 積分：4 註冊：2007-03-07 發送簡訊給我 |
fishman 你好:
我再針對上面問題想再次請教...以下我設計的樹狀圖！！ 我自行撰寫了家庭收支系統,...程式初始有四項類別〔資產〕〔負債〕〔收入〕〔支出〕等四項目. 其它 "子項目" 皆讓使用者動態建立並存入資料庫, a. 當使用者點選 [資產] 的 〔中國信託〕 ”活存” 或 ”定存”子項目時即跳出 A 表單 b. 當使用者點選 [支出] 的〔餐飲費〕早餐,中餐...子項目時即跳出 B 表單 ps: A 及 B表單都是經由最底層的子項目點選觸發,子項目父節點不做任何動作!!! 請問我該如何實作,知道哪一個父節點下的子節點？？？請幫助我吧~感激不盡!!完成後我會無條件將此程式供獻給需要的人~~謝謝!! －資產 ｜ ｜＿＿中國信託 ｜ ｜＿＿活存 ｜ ｜＿＿定存 ｜ ｜ ＋－負債 ｜ ＋－收入 ｜ －－支出 ｜－－餐飲費 ｜ ｜＿＿早餐 ｜ ｜＿＿中餐 ｜ ｜＿＿晚餐 ｜ ｜＿＿點心 ｜ ｜＿＿宵夜 ｜ ｜－－零用金 ｜＿＿媽媽 ｜＿＿爸爸 ｜＿＿小孩 |
|
Fishman
尊榮會員 發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
<textarea class="vb" rows="10" cols="60" name="code">
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if not (TTreeView(Sender).Selected = NIL) then
begin
if TTreeView(Sender).Selected.HasChildren then
begin
ShowMessage('父節點'');
end
else
begin
// ShowMessage('子節點'');
if not (TTreeView(Sender).Selected.Parent = NIL) then
Showmessage(TTreeview(Sender).Selected.Parent.Text);
end;
end;
end;
</textarea> Fishman
------
Fishman |
發表時間：2007-03-07 11:37:44
IP:59.127.xxx.xxx 訂閱
系統時間：2025-02-23 0:39:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |