全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1629
推到 Plurk!
推到 Facebook!

怎樣給Treeview父目錄編寫的問題

尚未結案
anzi168hk
一般會員


發表:5
回覆:5
積分:2
註冊:2007-09-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-09-26 22:40:56 IP:125.90.xxx.xxx 訂閱
各位前輩們妳們好 小弟請教妳們個問題,就是怎樣給Treeview的父目錄編寫事件代碼以下是我寫的: 
就是當我點啦父目錄內容,事件髮生,圖片裏麵有:成龍全集,李連傑全集,週潤髮全集。怎樣編寫他們的點擊事件吖?等待前輩們的答案 謝謝
編輯記錄
anzi168hk 重新編輯於 2007-09-26 22:47:04, 註解 無‧
h@visli
資深會員


發表:103
回覆:429
積分:431
註冊:2004-02-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-09-27 09:54:47 IP:219.134.xxx.xxx 未訂閱
我想你是要找到當前點擊的是哪個節點, 然後對這個節點作出響應吧. 方法很多的:


[code delphi]
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
Edit1.text := Node.Text;
end;

procedure TForm1.TreeView1Click(Sender: TObject);
var
Node: TTreeNode;
begin
Node := TreeView1.Selected;
if Assigned(Node) then
Edit1.Text := Node.Text;
end;

procedure TForm1.TreeView1GetSelectedIndex(Sender: TObject; Node: TTreeNode);
begin
Edit2.Text := Node.Text;
end;

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Node: TTreeNode;
begin
Node := TreeView1.GetNodeAt(X, Y);
if Assigned(Node) then
Edit3.text := Node.Text;
end;

[/code]
------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------
anzi168hk
一般會員


發表:5
回覆:5
積分:2
註冊:2007-09-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-09-27 16:45:10 IP:125.90.xxx.xxx 訂閱
h@visli 謝謝妳的囬復,但是我還不怎么明白,可以給點實咧或者資料嘛?我想用下拉式菜單來寫個網絡電視。謝謝
系統時間:2024-04-29 7:12:57
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!