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

關於宣告用DirectoryListBox與FileListBox

答題得分者是:pceyes
cobraliu
中階會員


發表:15
回覆:75
積分:83
註冊:2007-11-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-01-16 11:36:34 IP:59.127.xxx.xxx 訂閱
下面程式段主要是要練習用,但出現一個問題就是第一次我按按鈕時會有錯誤,但再按一次就正常
我想應該是自已觀念上有問題。
用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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-01-16 14:44:18 IP:122.127.xxx.xxx 訂閱
1. "Control" has no parent window
動態產生的物件, 沒有父視窗
2. 試著加上兩行:
dirlistbox.Parent := form1;
FileListBox.Parent := form1;
------
努力會更接近成功
cobraliu
中階會員


發表:15
回覆:75
積分:83
註冊:2007-11-22

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-01-16 15:34:51 IP:59.127.xxx.xxx 訂閱
謝謝大大,剛剛我才找到
因我去看到說明之前的文章,有寫到那屬於視覺元件如果不Show在視窗要設定Parent
我剛試一下另一個方法指定為Self也可以
但大大這得分也要給你的,感謝你
===================引 用 pceyes 文 章===================
1. "Control" has no parent window
動態產生的物件, 沒有父視窗
2. 試著加上兩行:
dirlistbox.Parent := form1;
FileListBox.Parent := form1;
------
初學、初學、學了很久...還是在初學階段..Orz
系統時間:2024-03-29 20:31:46
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!