Форум: "Система";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Вниз

Клавиатура в ноутбуке   Найти похожие ветки 

← →
Filat   (2001-12-29 18:07) [2]

На будущее лучше делать так, может и не совсем красиво, не знаю, но работает прекрасно.
procedure TFrm1.DBEdit1Exit(Sender: TObject);
Var
KeyState : TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[VK_CAPITAL] = 1) then
KeyState[VK_CAPITAL] := 0
else
KeyState[VK_CAPITAL] := 0;
SetKeyboardState(KeyState);
end;

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c