![]() |
![]() |
![]() |
![]() |
![]() |
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
|
||||
|
||||
Hola.
Muchas gracias dec pr la aclaracion, si tienes razon me referia al modo "overwrite" y ya he bajado el componente Synedit, lo malo es que no se como agregarlo ![]() Gracias de nuevo. |
#2
|
||||
|
||||
Para mostrar el cursor como un bloque se usa la función CreateCaret para especificar el tamaño, y ShowCaret para mostrar el nuevo cursor.
Lo malo es que el cursor tendría que crearse cada vez que se entra al control, para lo cual tenemos el evento OnEnter. Sin embargo, éste ocurre mientras la VCL está procesando el mensaje WM_SETFOCUS, y para cuando termina de hacerlo (despúes del OnEnter), el cursor vuelve a su forma original. Entonces debemos manejar nosotros mismos dicho mensaje para asegurarnos de crear el cursor después de que el sistema termine de procesar WM_SETFOCUS. Para ello puede crearse un control derivado de TMemo, o bien, si es para un sólo memo, reemplazando al vuelo su manejador de mensajes:
// Saludos Última edición por roman fecha: 29-06-2007 a las 17:40:09. |
#3
|
||||
|
||||
Hola,
Pues sí; estuvo bien eso Román. ![]() |
#4
|
||||
|
||||
Muchas gracias Roman!!
No me queda duda de que asi debe funcionar como deseo, pero tengo un problemita y de antemano pido disculpas si los llego a desesperar pero os repito que soy nuevo en este lenguaje, y me ha marcado un error en esta parte delcodigo que pongo en rojo, serias tan amable de indicarme donde estoy cometiendo el error o tal vez me falto declarar algo. Gracias nuevamente. ![]()
Última edición por LuNaTk fecha: 30-06-2007 a las 21:15:39. |
#5
|
||||
|
||||
He buscado mas informacion sobre esto, Amigo Roman he visto en este hilo donde explicas tambien que es necesario el uso de un manejador de mensajes creado por nosotros para controlar "x" necesidad, y he visto una declaracion que es diferente a la que has dejado en el ejemplo de arriba de este hilo.
MemoOldWndProc: TWndMethod; Si cambio esa declaracion, el programa si compila y corre, pero no se muestra el caret, no tiene ningun efecto, voy a tratar de averiguar porque. Saludos y gracias por tu tiempo. Última edición por LuNaTk fecha: 01-07-2007 a las 04:04:44. |
#6
|
||||
|
||||
Hola Club.
Ya pude conseguir lo que necesitaba, gracias a dec y Roman, amigos muchas gracias por su tiempo y paciencia, lo que cambie fue lo que esta en negrita, y aparte de ese cambio no me habia dado cuenta pero el evento "OnCreate" del Form1 no estaba bien asignado por mi, es decir en el codigo estaba escrito pero no lo agrege desde el Inspector de Objetos, no se si me explique, solo le di doble click a "OnCreate" de TForm de modo que dicho evento se activara y funciona bien, se crea el caret. Y para que funcionara en modo "Overwritte" puse Memo1.SelLength := 1; en el evento KeyPress del TMemo1. Gracas nuevamente, este fue el codigo.
|
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Modo Cascade | CoCaInE | OOP | 2 | 05-09-2006 17:06:13 |
Modo diseño y modo ejecución | buildero_d | OOP | 3 | 11-09-2005 06:45:00 |
Campo memo tabla escribirlo en componente Memo | Sayuri | Conexión con bases de datos | 2 | 18-08-2005 13:58:01 |
Insert me cierra otro Insert | motrildelphi | Conexión con bases de datos | 0 | 05-05-2005 12:20:27 |
Modo sin ODBC | seduerey | Impresión | 3 | 20-07-2003 15:54:44 |
![]() |
|