修改資料夾的infotip |
尚未結案
|
PistolPete
一般會員 發表:2 回覆:1 積分:0 註冊:2007-08-29 發送簡訊給我 |
小弟目前接到一個案子. . .
需求是要對資料夾對infotip做到客製化的顯示 如:顯示資料夾底下所有的檔案 在網路上只有查到教如何客製化檔案的方法 對於如何修改資料夾完全沒有概念 之前也沒有用過delphi 自己的做法是透過實作GetInfoTip的方法 用FindFirst、FindNext去讀取資料夾內的檔案 一一讀出存到字串裡再顯示出去 可是最後沒有成功 希望有人能幫忙解答 謝謝 部分程式碼如下: function TDFMInfoTip.GetInfoTip(dwFlags: DWORD; var ppwszTip: PWideChar): HResult; var searchResult : TSearchRec; end; InfoTip : string; s1 : string; begin InfoTip := ''; if FindFirst('*', faAnyFile, searchResult) = 0 then begin repeat if (searchResult.attr and faAnyFile) = faAnyFile then begin s1 := '名稱 :' searchResult.Name #10#13 ; InfoTip := s1 InfoTip ; end; until FindNext(searchResult) <> 0; FindClose(searchResult); end else begin InfoTip := 'no file inside!!!'; end; ppwszTip := StringToOleStr(InfoTip); Result := S_OK; 參考網頁: http://delphi.sharpplus.com/Delphi_Old/infotip.htm http://delphi.about.com/library/bluc/text/uc071701c.htm http://www.shellplus.com/examples/tooltip-handler-example.html 編輯記錄
PistolPete 重新編輯於 2007-09-06 20:57:18, 註解 無‧
|
PistolPete
一般會員 發表:2 回覆:1 積分:0 註冊:2007-08-29 發送簡訊給我 |
小弟後來找到另外一篇針對txt文件客製化顯示infotip的範例,內容如下:
http://www.shellplus.com/examples/tooltip-handler-example.html 裡面用網頁下載安裝的TSxDataModule去作 我將之前想的那段程式碼安插進去 得到這樣的結果: http://pistolpete.myweb.hinet.net/infotip.JPG 每個txt文件的infotip都顯示成圖上的內容 之前的想法似乎就只差臨門一腳就可以有結果了 有人有什麼看法嗎? |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |