Capturar control cuando muevo el raton

[genius]

Alguien puede ayudarme con GetCaptureControl ..
necesito capturar el control que esta debajo de mi cursor cuando SE PRESIONA el boton izq. del mouse
o si tienen mejor idea bienvenido .. gracias !

if (msg.message = WM_LBUTTONDOWN) then
begin
Control := GetCaptureControl;
if (Control <> nil) then
begin
TEdit(Control).Color := clred;
end;

end;

[droguerman]

donde aplicas ese evento'? si es en el control puedse usar el parametro Sender del evento

[genius]

es el Aplication.OnMessage

ahora necesito ayuda sobre esta funcion ControlAtPos

Control := ControlAtPos(ScreenToClient( Mouse.CursorPos), True);

alguien me puede decir porque siempre me trae nil ,alguien de los delphi adictos ya los utilizo alguna vz ?

F1 F1 .. !

[seoane]

Prueba con esto:

Control := ControlAtPos(ScreenToClient( Mouse.CursorPos), True, TRUE);

[genius]

Quien mas podria ser . el genio de genios ..

bueno muchas gracias :)