コンポーネント内のDelphiマウスホイールイベント

Question

私はマウスホイールを使用してズームするために Google Earthに類似したコンポーネントを書きたいと思っています。

StretchDrawは、ビットマップと私は理解してどのような形

に部品領域の位置を取得しようとしていることをより良いオプションがあり、私はonMouseWheelを使用してコンポーネントを持っていると私はプロパティMaxZoom MinZoomとズームを持っていますtCustomformが見つかるまで各親を見つけて、オブジェクトの位置を見つけるためにオブジェクトの位置を取得するためにすべてのコンポーネントの上部とコンポーネントを追加します。もっと良い方法があります

私はその場所をいったん持っています。マウスが私のオブジェクトの上にあってズームする場所なら、マウスカーソルの位置からズームすることができます。

は、それはあなたがズームしようとしているコンテンツの種類に依存するコード下さい

Answer 1

を見いずれかを持っています。 私はホイールが上のプライベート宣言

private 
{ Private declarations } 
procedure FormMouseWheel(Sender: TObject; Shift: TShiftState; 
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); 

に

を移動しているどのくらいの時間を取得する方法をここに掲載します作成したり、

OnMouseWheel := formMouseWheel; // depends on you 

FormMouseWheelこの

のように来て、他の起動手順

procedure FormMouseWheel(Sender: TObject; Shift: TShiftState; 
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); 
begin 
// your code here 
// WheelDelta returns you - or + values (in my computer -120 and + 120 ; 
// It depends on control panel mouse wheel settings) 

// If it is a font make the font size bigger or 
// if it is a image 
// strech := true; 
// increase width and height of the Timage 
//and put them inside a scrollbox 
// 
end; 

私はそれをvclフォームでチェックしました。 IDE成分）、 あなたがコンポーネントを書いている場合は、

Answer 2

を拡大したいコンテンツの種類達を投稿ズームしたいなら、あなたはあなたのコンポーネントでこれらの2つの方法オーバーライド試してみてください：

 
function DoMouseWheelDown(Shift :TShiftState; MousePos :TPoint) :Boolean; override; 
function DoMouseWheelUp(Shift :TShiftState; MousePos :TPoint) :Boolean; override; 

TControlの保護された動的メソッドです。マウスホイールを回すたびに呼び出されます。