如何在 TTreeView 中做到 "檔案總管中目錄名不得為空白" 的效果？？ |
|
答題得分者是：FrederickPau
|
|
xgray
一般會員   發表：12 回覆：14 積分：10 註冊：2002-04-14 發送簡訊給我 |
我的目的是要 TreeView 中的 Node 的 Text 不得為空白的，
如果輸入是空白的，就會像我們平常在檔案總管中那樣，
目錄的名稱變回更改前的名稱，而且為編輯狀態...
我在 TreeView 中的 OnEdited 中寫入以下的程式碼，
是可以讓 Node 變回更改前的字沒錯，可是那個 Node 卻是一片空白，
而且沒有進入編輯狀態，非得要再點選一次 TreeView ，Node 的 Text
才會出現，我覺得問題是出現在下了 Abort 的關係，可是不知道從何著手
去改它，請教各位前輩.... procedure TFormMain.TVcataEdited(Sender: TObject; Node: TTreeNode;var S: String);
begin
If S='' Then
begin
MessageBox(FormMain.Handle,'您必須輸入名稱','建立',MB_ICONERROR);
TVcata.Selected:=Node;
TVcata.Selected.EditText;
Abort;
end;
end;
|
|
FrederickPau
資深會員  發表：4 回覆：161 積分：268 註冊：2002-11-04 發送簡訊給我 |
|
|
xgray
一般會員 發表：12 回覆：14 積分：10 註冊：2002-04-14 發送簡訊給我 |
|
|
FrederickPau
資深會員 發表：4 回覆：161 積分：268 註冊：2002-11-04 發送簡訊給我 |
發表時間：2002-11-30 21:29:46
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-11-23 11:21:31
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |