各位好:

小弟現有兩張圖片 image1 , image2 (image1 在 image2 "-底圖" 的圖片上面) , 是否能在拖動 image1時, 仍能取得 image2的滑動座標, 因為只能得到 image1 的 mousemove
事件, 而無法得到 image2 的觸發事件, 能否有方法同時可以得到兩張圖對應的滑鼠移動事件(即 x1,y1 及 x2,y2), 或是簡單而說,如何可以得知 image1的 Left , Top 位於 image2 的
移動位置, 謝謝幫忙!!

以下程式碼是用 Delphi 寫的, 原理差不多, 請參考翻寫 ...

// ---------------------------------------------------------------
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject);
private
X1, X2, Y1, Y2: Integer;
mDown: Boolean;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
mDown:=False;
Label2.Caption:='Left: ' IntToStr(Image2.Left) ', Top: ' IntToStr(Image2.Top);
Label4.Caption:='Width: ' IntToStr(Image2.Width) ', Height: ' IntToStr(Image2.Height);
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// 相對於 Form1 的座標值 ..
X2:=Image1.Left X;
Y2:=Image1.Top Y;
//
X1:=X;
Y1:=Y;
mDown:=True;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var Image2_X, Image2_Y: Integer;
begin
if (mDown) then
begin
X2:=X2 (X-X1);
Y2:=Y2 (Y-Y1);
Label1.Caption:='X: ' IntToStr(X2) ', Y: ' IntToStr(Y2);
//
// 落點於 Image2 範圍內, 算出在 Image2 內的座標值 ...
if ((X2>=Image2.Left) and (X2<=Image2.Left Image2.Width-1)) and
((Y2>=Image2.Top) and (Y2<=Image2.Top Image2.Height-1)) then begin
Image2_X:=X2-Image2.Left;
Image2_Y:=Y2-Image2.Top;
Label3.Caption:='X: ' IntToStr(Image2_X) ', Y: ' IntToStr(Image2_Y);
end;
//
Image1.Left:=Image1.Left (X-X1);
Image1.Top :=Image1.Top (Y-Y1);
end
else
Label1.Caption:='X: ' IntToStr(X) ', Y: ' IntToStr(Y);
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
mDown:=False;
end;
end.