如何在activeForm中，將檔案總管所拖曳的圖檔顯示出來? |
|
尚未結案
|
|
ew
一般會員   發表：1 回覆：0 積分：0 註冊：2002-07-24 發送簡訊給我 |
procedure TTEST2ActiveFormX.ActiveFormCreate(Sender: TObject);
begin
DragAcceptFiles(application.Handle, True);
end; procedure TTEST2ActiveFormX.WMDROPFILES(var Message: TWMDROPFILES);
var NumFiles : longint;
i : longint;
buffer : array[0..255] of char;
begin
Memo1.Lines.clear;
NumFiles := DragQueryFile(Message.Drop,$FFFFFFFF,nil,0);
DragQueryFile(Message.Drop,i,@buffer,sizeof(buffer));
Memo1.Lines.Add(buffer);
Image1.Picture.LoadFromFile(Memo1.Lines.strings[0]);
end; 執行後，檔案總管所拖曳的圖檔無法在activeform中的IMAGE顯示，
而是會另開啟IE視窗。>___< 請各位大大幫幫忙囉~~
|
|
fatmoon1
初階會員  發表：3 回覆：29 積分：36 註冊：2004-05-24 發送簡訊給我 |
procedure TTEST2ActiveFormX.WMDROPFILES(var Message: TWMDROPFILES);
var NumFiles : longint; i : longint; buffer : array[0..255] of char; begin Memo1.Lines.clear; NumFiles := DragQueryFile(Message.Drop,$FFFFFFFF,nil,0); i:=0;//i要先確保為0 DragQueryFile(Message.Drop,i,@buffer,sizeof(buffer)); Memo1.Lines.Add(buffer); Image1.Picture.LoadFromFile(Memo1.Lines.strings[0]); end;
------
才疏學淺 |
發表時間：2005-12-10 02:23:25
IP:218.163.xxx.xxx 未訂閱
系統時間：2024-05-02 20:09:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |