此為轉貼資料 http://www.yesky.com/20020606/1614788.shtml 基於Delphi的圖像漫遊 2002-06-10· · ··程式師之家 在開發多媒體應用中,經常會遇到需要在有限區域內顯示大圖像的情況,有不少文章對此提出過解決方法,如通過調用Windows的API函數,直接讀寫記憶體等。這些方法有某些優點,但實現起來較爲複雜,且易出錯。筆者在實踐中通過仔細摸索,利用Delphi的強大的面向物件視覺化開發環境開發了一種互動式圖像漫遊方法。 Delphi中,滑鼠的消息回應是通過元件的OnMouseDown、OnMouseU p和OnMouseMove事件實現的,通過對此三個事件編程,可控制圖像在有限區域內移動。考慮到所移動的圖像的邊界應總在該區域外,因此圖像的左上角座標應小於該區域對應座標,圖像右下角座標應大於該區域對應座標(除非圖像大小比該區域小)。圖1 具體方法是: 1、新建一工程Project1,在Form1中依次放入Panel1、Panel2和I mage1元件,注意Pa nel2和Image1分別在Panel1和Panel2上,再將一La bel1元件加入Panel2中,調整Panel1尺寸爲適當大小,並修改各元件屬性爲: 元件 屬性名 屬性值 Panel1 BevelInner: bvRaised BevelOuter: bvNone BorderStyle: bsSingle Panel2 Align: alClient Image1 AutoSize: True Picture: ”Apple.bmp” Label1 Align: alClient Transparent : True 注意:此處Label1的作用不是顯示字元,而是利用它回應滑鼠消息 ,如果不用Label1而直接利用Image1的滑鼠事件回應,則會由於其OnMo useDown事件的啟動與Image1的自身座標移動事件衝突而使圖像發生閃爍甚至不能移動。 2、在implementation後加入變數聲明: origin:Tpoint; image_left:integer; image_top:integer; visa1:Tpoint; (滑鼠當前位置相對圖像右下角的座標) visa2:Tpoint; (滑鼠當前位置相對圖像左上角的座標) canmove:boolean; 編寫Label1滑鼠回應事件: procedure TForm1.Label1MouseDown(Sender: TObject; Button : TMouseButton;S hift: TShiftState; X, Y: Integer); begin if Button=mbLeft then begin origin.x:=X; origin.y:=Y; image_left:=image1.left; image_top:=image1.top; visa1.x:=X-(image1.width-panel2.width image1.left); visa1.y:=Y-(image1.height-panel2.height image1.top); visa2.x:=X-image1.left; visa2.y:=Y-image1.top; canmove:=true; end; end; procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if canmove then begin if X< visa1.x then X:=visa1.x; if X>visa2.x then X:=visa2.x; if Y< visa1.y then Y:=visa1.y; if Y>visa2.y then Y:=visa2.y; image1.left:=image_left (X-origin.x); image1.top:=image_top (Y-origin.y); end; end; procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;Shi ft: TShiftState; X, Y: Integer); begin canmove:=false; end; ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind