?? wzjh39.htm
字號:
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>基 于Delphi 的 圖 像 漫 游 向 暉 在 開 發 多 媒 體 應 用 中</title><meta name="GENERATOR" content="Microsoft FrontPage 3.0"></head><body style="font-size: 9pt" background="res/back.JPG"><table border="0" width="100%" style="font-size: 9pt"> <tr> <td width="100%" align="center"><strong>基 于Delphi 的 圖 像 漫 游</strong></td> </tr> <tr> <td width="100%" align="center">文/向暉 錄入/江湖小子</td> </tr> <tr> <td width="100%" align="center">1999.08.07</td> </tr> <tr> <td width="100%" align="center"></td> </tr></table><p>在 開 發 多 媒 體 應 用 中， 經 常 會 遇 到 需 要 在 有 限 區 域 內 顯 示 大 圖 像 的 情 況， 有 不 少 文 章 對 此 提 出 過 解 決 方 法， 如 通 過 調 用Windows 的API 函 數， 直 接 讀 寫 內 存 等。 這 些 方 法 有 一 定 優 點， 但 實 現 起 來 較 為 復 雜， 且 易 出 錯。 筆 者 在 實 踐 中 通 過 仔 細 摸 索， 利 用Delphi 的 強 大 的 面 向 對 象 可 視 化 開 發 環 境 開 發 了 一 種 交 互 式 圖 像 漫 游 方 法。 <br><br>Delphi 中， 鼠 標 的 消 息 響 應 是 通 過 元 件 的OnMouseDown,OnMouseUp 和OnMouseMove 事 件 實 現 的， 通 過 對 此 三 個 事 件 編 程， 可 控 制 圖 像 在 有 限 區 域 內 移 動。 考 慮 到 所 移 動 的 圖 像 的 邊 界 應 總 在 該 區 域 外， 因 此 圖 像 的 左 上 角 坐 標 應 小 于 該 區 域 對 應 坐 標， 圖 像 右 下 角 坐 標 應 大 于 該 區 域 對 應 坐 標（ 除 非 圖 像 大 小 比 該 區 域 小）。 <br><br>具 體 方 法 為： <br><br>1、 新 建 一 工 程Project1， 在Form1 中 依 次 放 入Panel1,Panel2 和Image1 元 件， 注 意Panel2 和Image1 分 別 在Panel1 和Panel2 上， 再 將 一Label1 元 件 加 入Panel2 中， 調 整Panel1 尺 寸 為 適 當 大 小， 并 修 改 各 元 件 屬 性 為： <br><br>元 件 屬 性 名 屬 性 值<br>Panel1 BevelInner: bvRaised<br>BevelOuter: bvNone<br>BorderStyle: bsSingle<br>Panel2 Align: alClient<br>Image1 AutoSize: True<br>Picture: "Apple.bmp"<br>Label1 Align: alClient<br>Transparent: True<br>注 意： 此 處Label1 的 作 用 不 是 顯 示 字 符， 而 是 利 用 它 響 應 鼠 標 消 息， 如 果 不 用Label1 而 直 接 利 用Image1 的 鼠 標 事 件 響 應， 則 會 由 于 其OnMouseDown 事 件 的 激 活 與Image1 的 自 身 坐 標 移 動 事 件 相 沖 突 而 使 圖 象 發 生 閃 爍 甚 至 不 能 移 動。 <br>2、 在implementation 后 加 入 變 量 聲 明： <br><br>origin:Tpoint;<br>image_left:integer;<br>image_top:integer;<br>visa1:Tpoint; ( 鼠 標 當 前 位 置 相 對 圖 象 右 下 角 的 坐 標)<br>visa2:Tpoint; ( 鼠 標 當 前 位 置 相 對 圖 象 左 上 角 的 坐 標)<br>canmove:boolean;<br><br>編 寫Label1 鼠 標 響 應 事 件：<br>procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;<br>Shift: TShiftState; X, Y: Integer);<br>begin<br>if Button=mbLeft then<br>begin<br>origin.x:=X;<br>origin.y:=Y;<br>image_left:=image1.left;<br>image_top:=image1.top;<br>visa1.x:=X-(image1.width-panel2.width+image1.left);<br>visa1.y:=Y-(image1.height-panel2.height+image1.top);<br>visa2.x:=X-image1.left;<br>visa2.y:=Y-image1.top;<br>canmove:=true;<br>end;<br>end;<br><br>procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,<br>Y: Integer);<br>begin<br>if canmove then<br>begin<br>if Xvisa2.x then X:=visa2.x;<br>if Yvisa2.y then Y:=visa2.y;<br>image1.left:=image_left+(X-origin.x);<br>image1.top:=image_top+(Y-origin.y);<br>end;<br>end;<br><br>procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;<br>Shift: TShiftState; X, Y: Integer);<br>begin<br>canmove:=false;<br>end;<br>上 述 程 序 在Delphi 2.0 中 編 譯 通 過， 經 過 擴 充 和 修 改 還 可 應 用 于 多 媒 體 數 據 庫 的 圖 像 顯 示， 對 于 開 發 用 戶 友 好 界 面 有 一 定 借 鑒 作 用。 <br><br></p></body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -