關於宣告用DirectoryListBox與FileListBox |
答題得分者是:pceyes
|
cobraliu
中階會員 發表:15 回覆:75 積分:83 註冊:2007-11-22 發送簡訊給我 |
下面程式段主要是要練習用,但出現一個問題就是第一次我按按鈕時會有錯誤,但再按一次就正常
我想應該是自已觀念上有問題。 用ShellTreeView1是為了美觀..@@ 但內容上自已還是用TDirectoryListBox、TFileListBox比較熟..XD 想問問先進們 [code delphi] procedure TForm1.Button1Click(Sender: TObject); VAR DirListBox: TDirectoryListBox; FileListBox: TFileListBox; begin try DirListBox := TDirectoryListBox.Create(SELF); FileListBox := TFileListBox.Create(SELF); DirListBox.FileList := FileListBox; DirListBox.Directory := ShellTreeView1.Path; showmessage(filelistbox.Directory); except showmessage('1'); end; end; [/code]
------
初學、初學、學了很久...還是在初學階段..Orz |
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
|
cobraliu
中階會員 發表:15 回覆:75 積分:83 註冊:2007-11-22 發送簡訊給我 |
謝謝大大,剛剛我才找到
因我去看到說明之前的文章,有寫到那屬於視覺元件如果不Show在視窗要設定Parent 我剛試一下另一個方法指定為Self也可以 但大大這得分也要給你的,感謝你 ===================引 用 pceyes 文 章=================== 1. "Control" has no parent window 動態產生的物件, 沒有父視窗 2. 試著加上兩行: dirlistbox.Parent := form1; FileListBox.Parent := form1;
------
初學、初學、學了很久...還是在初學階段..Orz |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |