比如SZ聏ORM1的MOUSEMOV与IMAGE的MOUSEMOV事件，爾鶞漪O同一爬a方

這樣？

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.OnMouseMove := FormMouseMove;
end;    

--- 屬於那自己生命的歌 不管是什麼顏色

可是兩個Sender的X,Y會不太一樣, 所以如果用到X,Y, 這個地方就要小心了,不然你會發現滑鼠出現特異功能

Hi:    只要 Sender 不是 Form 就分別加上 TImage(Sender).Left 與 TImage(Sender).Top 即可轉換為 Form 上的座標     ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

非常感谢楼上的几位朋友，现在我已经搞好了，其实在事件后面直接选就是了，这几天单位上不了网，所以一直没有结，在这向你们说声对不起