請問
我有一張小圖於大圖重疊
我該如何在點到小圖時~
回傳小圖在form上的座標給大圖的mouseup
並且處發大圖的mouseup事件

請高手幫幫忙~

------
嘿~大家好

我的想法是....算出大圖跟小圖之間的座標轉換公式，即大圖x、y坐標是小圖的幾倍

還有其他解答?
這跟我所想要的有點不一樣

因為我只是想要把小圖的座標傳回給大圖去做判斷

------
嘿~大家好

[code delphi]
//Image1 (大圖)
//Image2 (小圖)

procedure TForm1.Image2Click(Sender: TObject);
var
P: TPoint;
begin
GetCursorPos(P);
//系統座標
Label1.Caption := Format('MouseClick: X=%d, Y=%d', [P.X, P.Y]);

//將系統座標轉換成Image2的Client座標
P := Image2.ScreenToClient(P);
//或 P := Self.ScreenToClient(P);//TForm1的Client座標
Label2.Caption := Format('MouseClick: X=%d, Y=%d', [P.X, P.Y]);

//所以只要引發Image1的Click事件就可以了, 由 Image1自行call GetCursorPos()
//取得系統座標
Image1Click(Image1);

end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
//Image2MouseMove, 傳入的是 Image2的Client座標, (0,0)代表Image2的左上角的位置
Label3.Caption := Format('MouseMove: X=%d, Y=%d', [X, Y]);
end;

procedure TForm1.Image1Click(Sender: TObject);
var
P: TPoint;
begin
GetCursorPos(P);
//系統座標
Label4.Caption := Format('MouseClick: X=%d, Y=%d', [P.X, P.Y]);

//將系統座標轉換成Image1的Client座標
P := Image1.ScreenToClient(P);
//或 P := Self.ScreenToClient(P);//TForm1的Client座標
Label5.Caption := Format('MouseClick: X=%d, Y=%d', [P.X, P.Y]);

end;

[/code]

編輯記錄

於 小圖.OnMouseUp 內

呼叫 大圖.OnMouseUp(Sender, Button, Shift, X, Y);


===================引 用 iiskiki 文 章===================
請問
我有一張小圖於大圖重疊
我該如何在點到小圖時~
回傳小圖在form上的座標給大圖的mouseup
並且處發大圖的mouseup事件

請高手幫幫忙~

謝謝大家的指教
後來想想
其實沒有那麼複雜
不過還是要謝謝大家

------
嘿~大家好