Shift

[_-Re@l-_]

Какой код у клавиши Shift?
Ну или как проверить, зажат ли Shift?

[Terran]

Какой код у клавиши Shift?

16

Ну или как проверить, зажат ли Shift?

Procedure TForm1.Timer1Timer(Sender: TObject);
Var
State : TKeyboardState;
Begin
GetKeyboardState(State);
If ((State[16] and 128) <> 0) Then
caption:='нажат'
Else
caption:='не нажат'
End;

[_-Re@l-_]

Э-э-э....Как-то не работает...На код #16 он как-то не реагирует

[Пепел Феникса]

_-Re@l-_, а вам где нужно определить нажатие шифта то?

[_-Re@l-_]

Да вот, в программе(см. скрин). Нужно, чтобы в пункте "Фамилия" можно было вводить только буквы(а первая буква фамилии обязательно должна быть заглавная, иначе в базе не находит) и можно было использовать Enter и BackSpace

[Пепел Феникса]

сделайте проверку проще в момент отправки(точнее перед ней в коде)
если первая буква малая, то делайте большой.

[Terran]

На код #16 он как-то не реагирует

Я нигде #16 не писал.

Нужно, чтобы в пункте "Фамилия" можно было вводить только буквы

и можно было использовать Enter и BackSpace

Делайте проверку вводимых символов.

(а первая буква фамилии обязательно должна быть заглавная, иначе в базе не находит)

Можете при вводе фамилии делать проверку и автоматом устанавливать первую букву заглавную.

[_-Re@l-_]

Какой код у клавиши Shift?

16

А это что?

Я нигде #16 не писал.

[Пепел Феникса]

код клавиши и символ, это разные вещи.
вы просили код, а используете как символ.

[_-Re@l-_]

ну как бы когда, например, мне нужно запретить нажатие клавиши enter, нужно написать:

if key = #13 then key:=Chr(0);

то есть #13 - код ентера