![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#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 |
|
|
|