線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1551
推到 Plurk!
推到 Facebook!

修改資料夾的infotip

尚未結案
PistolPete
一般會員


發表:2
回覆:1
積分:0
註冊:2007-08-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-08-31 17:42:37 IP:218.166.xxx.xxx 訂閱
小弟目前接到一個案子. . .
需求是要對資料夾對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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-09-06 21:09:30 IP:218.166.xxx.xxx 訂閱
小弟後來找到另外一篇針對txt文件客製化顯示infotip的範例,內容如下:
http://www.shellplus.com/examples/tooltip-handler-example.html
裡面用網頁下載安裝的TSxDataModule去作
我將之前想的那段程式碼安插進去
得到這樣的結果:
http://pistolpete.myweb.hinet.net/infotip.JPG
每個txt文件的infotip都顯示成圖上的內容

之前的想法似乎就只差臨門一腳就可以有結果了
有人有什麼看法嗎?
系統時間:2024-03-28 16:11:59
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!