Фокус для Edit'a

[DeKot]

Компонент Edit работает в режиме текстового редактора с вводом с клавиатуры.Когда мы программно уводим а затем снова даем ему фокус,то после каждого перевода фокуса на Edit он включается в "новый"
режим редактирования с первой позиции текста.

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

А ты верни AutoSelect в true.

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

Компонент Edit работает в режиме текстового редактора с вводом с клавиатуры.Когда мы программно уводим а затем снова даем ему фокус,то после каждого перевода фокуса на Edit он включается в "новый"
режим редактирования с первой позиции текста.

да я попробовал если строка была st:= 'ма' пусть хоть где стоит курсор если мы к ней прибавим еще что то ,то st:=st+'ма' будет 'мама' а ни что другое блин взрослые люди!!!!

[pu4koff]

можно еще использовать TSpeedButton вместо TButton

[Detka]

Ув. DeKot

В OnKeyPress :
Код:

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

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

Простите мне мои нулевые познания в программировании. Я мягко говоря не дружу с кейсом - редко встречаемся. Не поможете реальным примером (читай - готовым кодом). Плиззз....

[DeKot]

Не поможете реальным примером

Вечерком набросаю ростой пример, завтра выложу.

[DomiNick]

Вот как этот самый "кейс" выглядит:

Case <Переменная> Of
<Значение 1>:
<Результат 1>;
<Значение 2>:
<Результат 2>;
...
...
<Значение N>:
<Результат N>;
Else
<Результат по умолчанию>;
End;

Можно также на примере (чтоб понятнее):

Case a Of
    1:
            Edit1.Text:='One'; // если "а" = 1, то ...
    2:
            Edit1.Text:='Two'; // если "а" = 2, то ...
    3:
            Edit1.Text:='Three'; // если "а" = 3, то ...
    Else
            Edit1.Text:='UnKnown Number'; // если "а" не подходит ни под один из перечисленных вариантов, то ...
End;

Иногда "кейс" бывает очень полезным...

[Detka]

Я не спорю о полезности case'a. Я и синтаксис его в общих чертах знаю. Мне нужно конкретное применение для реализации ввода мат. действий с клавиатуры.

[DomiNick]

Ещё вот:

можно еще использовать TSpeedButton вместо TButton

Очень полезный совет...

конкретное применение для реализации ввода мат. действий

м... Сейчас, исходник только посмотрю как они там работают...

[pu4koff]

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

Очень полезный совет...

Если это была ирония, то: TSpeedButton не берёт фокус на себя и соответственно TEdit фокус не потеряет при кликании по кнопкам

[DomiNick]

pu4koff, наоборот - сам хотел предложить...
Жалко опередил... =)