例如 我想在form 的onmousemove裡知道 我的滑鼠目前是在那個元件的上方 該怎麼得知呢?? 又如果是在grid裡面 我想在當滑鼠移到heading時 在該col的heading秀某訊息 我在grid 的 onmousemove又該怎麼做呢? 謝謝

1.

function FindControlAtPos: TWinControl; 
var 
  Pt: TPoint; 
begin 
  GetCursorPos(Pt); 
  Result := FindControl(WindowFromPoint(Pt)); 
end; 

-- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
            Self.Caption :=Sender.ClassName ;
end;

可將此事件指定到其它元件的MouseMove PS:這個是取得ClassName啦~~剛剛沒仔細看< >，沒關係…也是可以參考 =============================================================================== 提醒您，貼錯文章可立即傳訊通知該版版主/站長/副站長協助處理，不要放著不管喔< > 發表人 - ddy 於 2003/01/30 10:37:47

第 2. 點參考: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=22289 -- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

試試看 procedure TForm1.Timer1Timer(Sender: TObject); var ClassName: PChar; atCursor: TPoint; hWndMouseOver: HWND; begin GetCursorPos(atCursor); hWndMouseOver:=WindowFromPoint(atCursor); GetMem(ClassName, 100); try GetClassName(hWndMouseOver, ClassName, 100); Label1.Caption:='元件名稱： ' String(ClassName); finally FreeMem(ClassName); end; end;