FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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. |
#2
|
|||
|
|||
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; Saludos y suerte |
#3
|
|||
|
|||
Gracias Rubén, es exactamente lo que necesitaba.
Un saludo. Tonio. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|