FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Caps Locks (bloq mayús)
Holas
Gracias a todos por sus colaboraciones. mi pregunta es sencilla para ustedes pero para mi es todo un algoritmo matematio. Como activo el cap lock en mi aplicacion en run time, esto lo hago para poder controlar que todo lo que se escriba sea en mayusculas. Por ahora lo que hago es cambiar la propiedad "case" de los Tedit pero cuando son componentes tipo memo o el BdGrid los cuales no tienen esa propiedad. Y me gustaria que en todos se escriba igual mayusculas. Muchisimas gracias y bey bey
__________________
Y recueda que no hay preguntas tontas, si no, tontos que no preguntan. Sr. Genny Cris Morillo Santos Estudiante ING. Sistemas Santo Domingo D.N. |
#2
|
||||
|
||||
Prueba con estas funciones, pero que pasa si el usuario desconecta la tecla.
Yo más bien interceptaría las entradas del teclado y las convertiría a mayúsculas. Comment savoir si la touche Caps Lock est active function IsCapsLockOn : boolean; begin Result := 0 <> (GetKeyState(VK_CAPITAL) and $01); end; procedure TForm1.Button1Click(Sender: TObject); var keys: TKeyboardState; begin {1 = on, 0 = off} GetKeyboardState( keys ); keys[VK_NUMLOCK] := 1; {Num Lock} keys[VK_CAPITAL] := 1; {Caps Lock} keys[VK_SCROLL] := 1; {Scroll Lock} SetKeyboardState( keys ); end; Un Saludo. |
#3
|
|||
|
|||
Hola:
MarcosZorrilla escribió: Cita:
Código:
procedure FMainEdit1OnKeyPress (Sender: TObject; var Key: Char); begin if ForzarMayusculas then Key := UpCase(Key); end; |
|
|
|