Фокус для Edit'a

[DomiNick]

В коде есть:

if not (Key in ['0'..'9', #44, #46, #8, #106, #107, #109, #110, #111]) then Key := #0;

" '0'..'9' " - Тут понятно...
" #44, #46 " - Здесь - зачем и точка и запятая? Может что-то одно оставить?..
" #8, #106, #107, #109, #110, #111 " - А вот эти зачем?

[DomiNick]

Вот примерно так подойдёт?

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Edit1.SetFocus;
Case Key Of
      #13:
            RavnoClick(Self); // нажата кнопка "Enter" - вызываем обработчик кнопки "равно"
      #27:
            Close; // нажата кнопка "Esc" - закрываем программу
      #47:
            DelenieClick(Self); // нажата кнопка "/" - вызываем обработчик кнопки "делить"
      #42:
            UmnozhClick(Self); // нажата кнопка "*" - вызываем обработчик кнопки "умножить"
      #45:
            MinusClick(Self); // нажата кнопка "-" - вызываем обработчик кнопки "вычесть"
      #43:
            PlusClick(Self); // нажата кнопка "+" - вызываем обработчик кнопки "сложить"
end;
end;

[DeKot]

Как и обещал в архиве простейший калькулятор.
Программа корректно работает при правильном вводе значений
с клавиатуры или мышью с кнопок на форме (можно комбинированно).
Но, так это не рабочее приложение, а учебное, то присутствуют
фичи при некорректном вводе - к примеру : Не введено число,
а нажимается кнопка(клавиша) арифметической операции.Приводит
к фатальной ошибке.Таких фич много - для доводки приложения
надо еще многое дорабатывать. Но для учебного материала -
вполне достаточно для понятия построения таких приложений.
В архиве Project1 утилитка для определения кодов клавиш и кодов соответствующих символов с учетом языка и регистра.Удобно,когда надо код узнать. Жмете клавишу и получаете коды.

[Neobrat]

ребят не поленился прочитал все тему..
обьясните мне одно..
ну нафга нафига вам фокус на Edit-е?????

[DeKot]

На форме цифровые кнопки.Когда нажимаешь кнопку ссответствующая цифра попадает в Edit (Окно ввода).Но после этого фокус остается на нажатой кнопке.Следовательно следующее нажатие любой кнопки просто перенесут фокус на нее, но в Edit очередная цифра не попадет.
Поэтому после каждогонажатия кнопки надо возвращать фокус на Edit.
При вводе с клавиатуры это автоматически обеспечивается системой.
Так понятно?

[Detka]

Спасибо вам всем, Великие Умы Человечества!

Теперь осталось описание сделать ((( и можно сдавать.

Еще раз спасибо всем!

[Detka]

Сообщение от DeKot

Как и обещал в архиве простейший калькулятор.

Первое, что бросается в глаза - размер. А потом - странное расположение кнопок.

Ну а фичи - дело поправимое. Еще неделька на форуме И всё Ок

[DeKot]

Первое, что бросается в глаза - размер. А потом - странное расположение кнопок

Открой форму и переставь, поменяй размеры компонентов как тебе нравится.Все делается одной мышкой.

[DomiNick]

Ну запустите виндовский калькулятор: 1. данные можно вводить с клавы и мышкой, при этом курсор всегда в эдите (или как там его); 2. Клавиши + - * / вводимые с клавиатуры выполняют соответствующие действия (а у меня вводят текст "+", "-" и т.д.)

Как-то сразу не сообразил - в калькуляторе Windows в эдите нет фокуса... Точнее он всегда НЕ в фокусе...

Если этот компонент вообще "TEdit".....

[Mikhail Bakurov]

Читал не все, возможен повтор

Можно разместить компонент TPanel, поиграться с настройками и он будет точь в точь как едит, но без возможности писать в нем
вместо TButton -> TSpeedButton
В фокусе ничего не будет... точнее форма будет всегда в фокусе
Пишем все процедуры, размещаем в кнопках и на форме.
(Можно массив кнопок сделать)