5
Delphi 2010 EmpresaTeclado virtual Delphi 2010, comience con CapsLock encendido?
¿Cómo puedo activar automáticamente el bloqueo de mayúsculas cuando se muestra el teclado virtual?
Delphi 2010 EmpresaTeclado virtual Delphi 2010, comience con CapsLock encendido?
¿Cómo puedo activar automáticamente el bloqueo de mayúsculas cuando se muestra el teclado virtual?
Pruebe esto en su FormCreate:
procedure TForm1.FormCreate(Sender: TObject);
var
MyKeys: array of tagInput;
begin
setLength(MyKeys, 2);
MyKeys[0].Itype:=INPUT_KEYBOARD;
MyKeys[0].ki.wVk:=VK_CAPITAL;
MyKeys[0].ki.wScan:=0;
MyKeys[0].ki.dwFlags:=4;
MyKeys[0].ki.time:=0;
MyKeys[0].ki.dwExtraInfo:=0;
MyKeys[1].Itype:=INPUT_KEYBOARD;
MyKeys[1].ki.wVk:=VK_CAPITAL;
MyKeys[1].ki.wScan:=0;
MyKeys[1].ki.dwFlags:=4+2;
MyKeys[1].ki.time:=0;
MyKeys[1].ki.dwExtraInfo:=0;
SendInput(2, MyKeys[0], sizeof(tagInput));
end;
usted puede encontrar más información sobre msdn
Ese código * * prensas de la tecla de bloqueo de mayúsculas. Es posible que desee agregar otro evento de teclado para simular el * lanzamiento * de la clave. –
@Rob: bien, gracias. – CloudyMarble
Eso no funcionó para mí. Estoy usando XP en casa si eso importa. –