Mouse altındaki Component

[Abrak]

selam;
vardır mutlaka ama arama kriterlerimde bulamadım

form1.onmousemove olayından cursorun hangi component üzerinde olduğunu nasıl öğrenebilirim

[rsimsek]

Component'lerin OnMouseMove una aşağıdaki kodu yaz.

Kod: Tümünü seç

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Caption := (Sender as TComponent).Name;
end;

[Abrak]

rsimsek bey;
cevabınız için tşk ederim fakat sorunum componentlerin onmousemove olayını kullanmak istemediğimden kaynaklanıyor