Фокус для Edit'a

[Detka]

Не думаю, что вам понравится мой код....

А идея с рид онли мне понравилась : если клава не работает как надо - пусть вообще не работает.

[Terran]

А идея с рид онли мне понравилась : если клава не работает как надо - пусть вообще не работает.

Я подразумевал что бы вы установили свойство Edit1.ReadOnly:=True; и сделали как говорил Stilet в посте №3. Потом по нажатию на кнопку проверяли её и вводили в Edit, тем самым будет удобно и исключите возможность ввода ненужных символов.

[DeKot]

как научить мою прогу воспринимать +-*/ не текстом а действием

Для KeyPress ^

if not (Key in [ '0'..'9',',']) then Key:= #0;

Позволит вводить только цифры и зпт.
А для + и - создать обработчики с кодом сложения и вычитания.
По поводу фокуса пока идей нет.Надо поискать.

[Detka]

Определи одно событие для всех кнопок и в нем фокус в эдит кидай

Это как? Можно подробнее.

Лучше с кодом

А лишние символы он мне и так не вводит.

А для + и - создать обработчики с кодом сложения и вычитания.

И как мне по нажатию именно этих кнопок клавиатуры задать обработчики?

[DeKot]

Вот что получилось- У Edit-а ставим AutoSelect:= false; (запрет на выделение текста), в обработчике кнопки на форме (например цифры 5)

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
Edit1.Text:= Edit1.Text + '5';
end;

procedure  TForm1.Edit1Change (Sender: TObject);
begin
Edit1.SetFocus;
end;

Теперь выделения текста нет, цифры добавляются последовательно по
тексту в Edit-е, НО курсор в Edite-e остается все время на первой позиции.

Обработка + и - :
В OnKeyPress :

if ord(Key) = 43 then  <процедура сложения> ;
if ord(Key) = 45 then <процедура вычитания> ;

Вместо if можно (даже лучше) применить case ... of

[Detka]

Ну ладно, чтобы циферки с клавы вводились сразу с первой, добавила

procedure TForm1.FormShow(Sender: TObject);
begin
Edit1.SetFocus
end;

Но вот чтоб после "клацанья" мышкой по кнопочкам фокус с них убегалл в эдит... Вот в чём фокус!

[начинающий кодер]

procedure TForm1.button1click(Sender: TObject);
begin
Edit1.text:=edit1.text+'1';
edit1.setfocus;
end;

попробуй!!

[DeKot]

procedure TForm1.button1click(Sender: TObject);
begin
Edit1.text:=edit1.text+'1';
edit1.setfocus;
end;

После передачи фокуса происходит выделение всего текста и следующий ввод затирает весь текст.А в варианте по посту 15 этого нет.
Проблема - перевести курсор в Edit-e снова на последнюю позицию.

[Detka]

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

Теперь выделения текста нет, цифры добавляются последовательно по тексту в Edit-е, НО курсор в Edite-e остается все время на первой позиции.

Интересно получается: если цифры с клавы вводить, курсор стоит в конце строки, а если кнопками формы - в начале...

Кстати работает уже практически как надо

[начинающий кодер]

не знаю что он у вас там затирает у меня пишет 111111111