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

秀圖的問題(跟著Record秀)

缺席
cobraliu
中階會員


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

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-02-14 01:04:16 IP:220.143.xxx.xxx 訂閱
請問各位大大
自已要做一個轉圖的功能
因我想要在Master/Detail中的Detail可以去勾選我要轉的圖檔(資料庫沒有存圖檔)
如:
Detail(有記錄著圖檔的位置)
----------------------------------------
1.jpg 秀圖出來
2.jpg 秀圖出來
3.jpg 秀圖出來
而找了不少文章,都沒有看到類似的功能
想問問各位大大,如果我的秀圖是跟著Record跑
意指有一筆Record會有一個圖檔Show在旁邊
有什麼方向可以做到呢或元件(找過TMS也沒有看到..orz)

附件是設計的樣式
------
初學、初學、學了很久...還是在初學階段..Orz
編輯記錄
cobraliu 重新編輯於 2008-02-14 17:07:51, 註解 無‧
cobraliu 重新編輯於 2008-02-14 17:09:05, 註解 測試檔案‧
cobraliu 重新編輯於 2008-02-14 17:13:13, 註解 無‧
cobraliu 重新編輯於 2008-02-14 17:34:39, 註解 無‧
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-02-14 06:58:17 IP:220.141.xxx.xxx 訂閱
// show next
procedure tform1.buttononclick(sender);
var fn :string;
begin
table1.next;
fn := table1.fieldbyname['filenamefield'].asstring; // get field filename
image1.picture.graphic := nil; // clear image1
image1.picture.loadfromfile(fn); // loadfromfile
end;
------
努力會更接近成功
編輯記錄
pceyes 重新編輯於 2008-02-14 06:59:11, 註解 無‧
cobraliu
中階會員


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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-02-14 09:15:21 IP:220.143.xxx.xxx 訂閱
大大這方式似乎是讀一筆Show一筆

1.jpg 秀圖出來
2.jpg 秀圖出來
3.jpg 秀圖出來

其實我想要的是同一時間,全部的圖Show出來,如100筆會有一百張圖
------
初學、初學、學了很久...還是在初學階段..Orz
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-02-14 13:51:32 IP:220.141.xxx.xxx 訂閱
while not table1.eof do begin
fn := table1.fieldbyname['filenamefield'].asstring; // get field filename
image1.picture.graphic := nil; // clear image1
image1.picture.loadfromfile(fn); // loadfromfile
table1.next;
end;
------
努力會更接近成功
系統時間:2024-04-17 4:02:55
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!