Вроде Edit

[Goshan82]

Здравствуйте уважаемые!Привела меня сюда проблема,а точнее её не пониманиеНужно написать калькулятор в Delphi(у меня 7 версия),баттоны с цифрами и точкой,нужно загнать в общий обработчик,задав свойство Tag
"0","1"..."9","10"("10" это точка).Цифра в индикатор должна вводиться в позицию,на которую указывает маркер.
Вот вымучил с тагом ввод как текста просто,но никак не получается это прикрутить к маркеру.Помогите пожалуйста!

 procedure TForm1.SpeedButton1Click(Sender: TObject);
 begin
  if (Sender as TSpeedButton).Tag in[0..9] then
  Edit1.Text:=Edit1.Text+IntToStr((Sender as TSpeedButton).Tag)
  else
  Edit1.Text:=Edit1.Text+'.';

end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

Прошу прощения,впредь буду внимательнее.

[evg_m]

должна вводиться в позицию,на которую указывает маркер.

Edit1.SelText:='.';

See Also selStart, selLength

[Goshan82]

Простите,а нельзя ли поподробней про эту строчку?SelStart,SelLength,SelText читал,но как применить в моём случае,так и не понял.Попробывал добавить вашу строчку,продолжает печать в продолжении строки,но теперь добавляет точку в начале.

[evg_m]

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

Попробывал добавить вашу строчку,продолжает печать в продолжении строки,но теперь добавляет точку в начале.

надо не добавлять, а заменять.

Edit1.SelText:='.'; // Edit1.Text:=Edit1.Text+'.';

и аналогично (заменять) для других кнопок.
сделай такоеВложение 59775 и многое про Sel... станет понятнее.

[Goshan82]

Уважаемый evg_m!Спасибо Вам огромное,всё получилось,и даже благодаря вашей подсказки сделали ещё несколько задач.Теперь ещё больше уверен,что не зря выбрал именно ваш форум.Только вложение у меня нету(Пишит,что не существует.

[Goshan82]

Помогите ещё раз пожалуйста!
Прописали код на Button имитирующий Delete,при нажатии его на форме,срабатывает как надо,но при перехвате клавиши Delete onkeydown'ом и отправки его на OnClick,удаление срабатывает дважды,хотя по сути выполняется одно и тоже условие.
Если нужен код,то могу выложить.
P.S. Я убрал Delete совсем из OnKeyDown,всё работает,видимо Delete нужно запрещать отдельно как то,или это невозможно.

[Serge_Bliznykov]

рискну предположить, что после перехвата кода и выполнения действий на OnKeyDown вы key не сбрасываете и он обрабатывается текущим контролом...

Если нужен код,то могу выложить.

скорее всего, это ускорит появление корректного ответа на ваш вопрос..

[Goshan82]

Нет,я же написал что разобрался,просто полностью свою глупость осознал чуть позжеЯ разрешил через OnKeyPress клавиши 0..9 и BackSpace,а Delete,если я правильно понял Фаронова,данным способом не исключается.Так вот,при перехвате через OnKeyDown я отсылал на обработчик OnClick Buttona,в котором прописано "якобы" действие Delete с помощью замены символа селтекстом на ''(спасибо ещё раз evg_m!).В общем,при нажатии Delete.выполнялось его евстевственное действие,а также онклик этого баттона.
P.S.В общем наверно не понятно написалНо всё таки ещё раз всем спасибо,действительно очень помогло объяснение!А тему можно закрывать,чтобы не висела