Mayusculas

[merlin]

Hola a tod@s!

Bueno mi problemas es el siguiente quiero que cuando arranque el programa se activen las mayusculas y que cunado cerremos la aplicación se quiten como puedo hacer eso, gracias espero vuestras respuestas lo antes posible.

Un saludo.

[Neftali [Germán.Estévez]]

Se puede hacer utilizando la api keybd_event y la tecla virtual VK_CAPITAL.

Coloca el siguiente código tanto para activarla como para desactivarla:

Código Delphi [-]
      keybd_event( VK_CAPITAL, MapVirtualkey( VK_CAPITAL, 0 ),
                   KEYEVENTF_EXTENDEDKEY, 0);
      keybd_event( VK_CAPITAL, MapVirtualkey( VK_CAPITAL, 0 ),
                   KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

Si deseas saber si está activada o desactivada en un momento dado puedes utilizar ésto:

Código Delphi [-]
   if not Odd(GetAsyncKeyState( VK_CAPITAL )) then begin
     MessageDlg('Activa', mtInformation, [mbOK], 0);
   end
   else begin
     MessageDlg('Desacivada', mtInformation, [mbOK], 0);
   end;

[merlin]

Hola Neftali.

La parte de activar las mayusculas funciona muy bien pero esta otra parte de codigo:

 if not Odd(GetAsyncKeyState( VK_CAPITAL )) then begin
     MessageDlg('Activa', mtInformation, [mbOK], 0);
   end
   else begin
     MessageDlg('Desacivada', mtInformation, [mbOK], 0);
   end;

Solo entra en la condicion en la parte de activa tanto si estan activadas las mayusculas como si no. Sabes xq?

[Neftali [Germán.Estévez]]

Cierto, en éste caso tal vez me he complicado la vida, prueba con ésto:

Código Delphi [-]
   if Odd(GetKeyState( VK_CAPITAL )) then begin
     MessageDlg('Activa', mtInformation, [mbOK], 0);
   end
   else begin
     MessageDlg('Desacivada', mtInformation, [mbOK], 0);
   end;