калькулятор

[JK0]

Написан калькулятор, всё работает, но с клавиатуры вводить символы можно только в Edit, а хочется как в стандартном widows, просто когда окно активно. На свойство формы keypreview в true, редактирование в edit запрещено. В процедуре FormKeyPress по нажатию разрешённых клавиш - edit1.text:=edit1.text + key или edit1.text:=edit1.text если было пусто. Теперь вообще никакой реакции на клавиатуру нет.
Подскажите, пожалуйста, как решить проблему.

[RuVarez]

В окно никак не получится! Само нужно было! Создай меню в него запихай поле с быстрой клавишей и сделай его невидимым!И все работает))

[_Engine_]

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  edit1.Text := edit1.Text + key;
end;

у меня работает

[JK0]

Спасибо, RuVarez. Будет повод познакомиться с меню
_Engine_, у меня это работает если редактирование в edit разрешено. Однако при вводе с buttonов edit теряет фокус, приходится снова по нему кликать, что неприятно. Или для каждой кнопки писать возврат фокуса в edit? Но в стандартном не так, там редактирование в edit запрещено... если это edit ?

[_Engine_]

У меня edit.readonly := true; и фокус на кнопке. Однако все работает.
Ты кейпрессед-то у какого компонента обрабатываешь?

[RuVarez]

Ну чо пробовал!Меню должно работать, только надо испоьзовать MainMenu
хотя може и такое работает))

[RuVarez]

Не фокус для всего это фигня!

[_Engine_]

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

Не фокус для всего это фигня!

Да что Вы говорите? Конечно, гланды лучше через ж* удалять

[RuVarez]

А вы что гланды со всех сторон удаляете?

[Sparkman]

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

Написан калькулятор, всё работает, но с клавиатуры вводить символы можно только в Edit, а хочется как в стандартном widows, просто когда окно активно. На свойство формы keypreview в true, редактирование в edit запрещено. В процедуре FormKeyPress по нажатию разрешённых клавиш - edit1.text:=edit1.text + key или edit1.text:=edit1.text если было пусто. Теперь вообще никакой реакции на клавиатуру нет.
Подскажите, пожалуйста, как решить проблему.

киньте на форму ActionList, из вкладки Standard, и создайте для каждой кнопки свое действие путем нажатия кнопки "New Action", либо нажатием клавиши Insert. После добавления, нажмите 2 раза по действиям (Action1, Action2 ...) и там пропишите Button1.Click, то есть команду нажатия кнопки калькулятора. Затем для каждого действия (Action1, Action2 ...) в инспекторе объектов (Object Inspector, слева внизу) пропишите "горячую" клавишу в поле ShortCut.