Foros Club Delphi - Saber donde estoy en un Rich

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Saber donde estoy en un Rich (https://www.clubdelphi.com/foros/showthread.php?t=3656)

Tonio

15-09-2003 23:42:19

Saber donde estoy en un Rich

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

16-09-2003 05:51:54

Hola Tonio, lo que puedes hacer es adecuar este ejemplo que preparé que creo es lo que quieres:

Código:

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

16-09-2003 10:06:36

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

La franja horaria es GMT +2. Ahora son las 14:13:18.