Saber donde estoy en un Rich

[Tonio]

Al pulsar con el puntero del ratón sobre distintos puntos de un RichEdit, sale un cuadro con unos datos, una especie de ayuda.
Lo que yo pretendo es saber en que posición de la pantala se encuentra el punto que he pulsado, el motivo, que el cuadro con los datos me salga abajo si pulso de la mitad hacia arriba y arriba si pulso de la mitad hacia abajo. Que no me tape la zona en la que he pulsado. Como hace la opción de búsqueda en el Word.
Creo haberme explicado.
Gracias de antemano.
Tonio.

[Ruben_Cu]

Hola Tonio, lo que puedes hacer es adecuar este ejemplo que preparé que creo es lo que quieres:
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if screen.Height div 2>RichEdit1.ClientToScreen(Point(x,y)).Y then
showmessage('ESTOY ARRIBA') else showmessage('ESTOY ABAJO')

end;
El mensaje lo sustituyes por la presentación de tu ventana de ayuda arriba o abajo, espero te sirva.
Saludos y suerte

[Tonio]

Gracias Rubén, es exactamente lo que necesitaba.
Un saludo.
Tonio.