Фокус для Edit'a

[Detka]

Я прошу прощения за наивный вопрос, но что-то поиск по форуму меня не привел к нужному результату. А вопрос такой: как заставить Edit всё время быть в фокусе? Ну я делаю калькулятор, когда мышкой кнопки на форме нажимаешь, фокус теряется. А я хочу что был )))

ЗЫ Не советуте только пожалуйста по нажатию каждой кнопки программно передавать фокус эдиту. Это слишком много.

ЗЫЫ Может заодно расскажите как научить мою прогу воспринимать +-*/ не текстом а действием...

[Terran]

Можете сделать так:

Procedure TForm1.Edit1Change(Sender: TObject);
Begin
Edit1.SetFocus;
End;

ЗЫЫ Может заодно расскажите как научить мою прогу воспринимать +-*/ не текстом а действием...

Расскажите пожалуйста по подробней, что именно у вас не получается?

[Stilet]

Не советуте только пожалуйста по нажатию каждой кнопки программно передавать фокус эдиту. Это слишком много.

Эт еще почему? Определи одно событие для всех кнопок и в нем фокус в эдит кидай или поставь KeyPreview в true и пропиши передачу фокуса Эдиту в OnKeyPress формы.

[Detka]

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

Можете сделать так:

Procedure TForm1.Edit1Change(Sender: TObject);
Begin
Edit1.SetFocus;
End;

Я так пробовала. Получается следущее: если вводить цифры мышкой в эдите выделяется текст, а если с клавы - не выделяется. Но фокус все равно не "приходит"

[Detka]

Цитата:
ЗЫЫ Может заодно расскажите как научить мою прогу воспринимать +-*/ не текстом а действием...
Расскажите пожалуйста по подробней, что именно у вас не получается?

http://www.programmersforum.ru/showt...EB%E0%E2%E8%F8 тут уже спрашивали то же самое на Си. Как мне теперь такое в Делфи реализовать?

[Terran]

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

http://www.programmersforum.ru/showt...EB%E0%E2%E8%F8 тут уже спрашивали то же самое на Си. Как мне теперь такое в Делфи реализовать?

Что бы много не писать выложу вам исходничёк простенького калькулятора, который когда то скачал с форума: Калькулятор.rar Посмотрите как он реализован. Там всё просто.

[Detka]

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

или поставь KeyPreview в true и пропиши передачу фокуса Эдиту в OnKeyPress формы.

У меня тогда не учитывается нажатие первой клавиши. Т.е. я жму, например 654, а эдит отображает только 54.

И как правильно передать ему фокус, ну чтоб не выделялся текст, а просто эдит был всегда активным?

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

Что бы много не писать выложу вам исходничёк простенького калькулятора

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

[Terran]

И как правильно передать ему фокус, ну чтоб не выделялся текст, а просто эдит был всегда активным?

Так же можете попробовать такой вариант:

Edit1.SetFocus;
Edit1.SelStart:=Edit1.SelLength;

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

Edit1.ReadOnly:=True;

[Detka]

Edit1.SelStart:=Edit1.SelLength;

гы-гы-гы... теперь он цифры пишет наоборот - справа на лево :D

[Stilet]

Detka

Код в студию и желательно полный.
Или проект прикрепи.