如何在兩個不同動態形成的image 之間用滑鼠拖圖過去? |
|
答題得分者是：william
|
|
sbt
一般會員   發表：16 回覆：15 積分：6 註冊：2003-01-01 發送簡訊給我 |
|
|
william
版主   發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
1) set DragMode to dmAutomatic
2) write OnDragOver and accept the drag as needed. e.g.
procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := (Source is TImage);
end;
3) write OnDragDrop to perform action. |
|
sbt
一般會員 發表：16 回覆：15 積分：6 註冊：2003-01-01 發送簡訊給我 |
我在dragdrop事件中如下寫法
var t,f:integer;
begin
t:=(source as Timage).Tag;
f:=(sender as Timage).tag; if img1[t].parent=tabsheet1 then
begin
img2[f].picture.LoadFromFile(filelistbox1.items[t]);
end;
無法拖圖進去img2[k]中 why?
dragover 事件我有寫喔 p.s. tabsheet1 是我動態形成並載入圖形的地方img1[i],
filelistbox1是圖形的對應檔案名稱
|
|
sbt
一般會員 發表：16 回覆：15 積分：6 註冊：2003-01-01 發送簡訊給我 |
發表時間：2003-01-15 02:31:55
IP:203.204.xxx.xxx 未訂閱
系統時間：2024-04-29 3:32:00
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |