Как сделать вывод в TEdit как в калькуляторе Windows?

@Programmer ABC · Регистрация: 21.02.2018

Студворк — интернет-сервис помощи студентам

Как сделать Ввывод в TEdit как в Калькуляторе Windows ?

@droider · 15.03.2018, 09:21

Programmer ABC, пример Калькулятор математических выражений

@Programmer ABC · 15.03.2018, 17:34 **[ТС]**

чего а можно код плиз ?

@droider · 15.03.2018, 17:47

Сообщение от Programmer ABC

а можно код

а Вы его на скрине не видите?

@Matan! · 15.03.2018, 18:21

Не по теме:

Programmer ABC, а, может, почту преподавателя напишете? А мы туда сразу и отправим..

@Programmer ABC · 15.03.2018, 19:10 **[ТС]**

как в Delphi сделать такое Memo1 поле как на стандартном Windows калькуляторе ? Название: Снимок.PNG
Просмотров: 46

Размер: 2.8 Кб

@TFullControl · 15.03.2018, 21:44

Programmer ABC, для этого нужно сделать следующее:
1. Сдвинуть вниз стандартную область поля ввода memo, ту которая отрисовывается самим компонентом.
2. Сверху отрисовывать руками нужные символы.
Набросал не болшой пример, разбирайтесь:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.MemoPaint;
var Canvas:TCanvas;
    Rect: TRect;
    s: String;
begin
  s:= '555';
  SendMessage(Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect));
  Rect.Top:= 0;
  canvas:=tcanvas.Create;
  canvas.Handle:= getdc(memo1.Handle);
  canvas.TextRect(Rect, s, [tfRight, tfSingleLine]);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  Rect: TRect;
begin
  Memo1.Font.Size:= 14;
  SendMessage( Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect));
  Rect.Top:= 20;
  SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect));
  Memo1.Refresh;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
  MemoPaint;
end;

Думаю суть ясна, осталось причесать код под конкретную задачу.

@TFullControl · 15.03.2018, 21:45

Скрин

@Programmer ABC · 15.03.2018, 21:56 **[ТС]**

можно мне проект ?

Добавлено через 51 секунду
а как сделать так что бы при нажатии на кнопку 555 с верху вводила ?

Добавлено через 1 минуту
Теги: Калькулятор

@AlexSky-coder · 15.03.2018, 23:58

Сообщение от Programmer ABC

а как сделать так что бы при нажатии на кнопку 555 с верху вводила ?

А нарисовать слабо?

@AlexSky-coder · 16.03.2018, 00:04

Как-то так.

@Пытливый · 16.03.2018, 00:36

SkyLion27 что это еще за подарки в архиве? Trojan:Win32/Fuery.A!cl

@NIKOLAYY · 16.03.2018, 05:56

SkyLion27, Ну у тя там канва с цыфрами + градиентное поле если коротко на скрине я имею ввиду?

@NIKOLAYY · 16.03.2018, 06:50

Programmer ABC, Держи!
Это можно печатать в эдит поле, дополнительные кнопки что у тебя на скрине можно добавить.

@ZX Spectrum-128 · 16.03.2018, 08:28

Пытливый, у меня avast пропустил. Действительно, есть в архиве троян?

magirus · 16.03.2018, 08:36

как то так

Как сделать вывод в TEdit как в калькуляторе Windows?

ведущих вендоров нет.

@droider · 16.03.2018, 09:19

NIKOLAYY, Коля, как-то вообще не в тему.

Добавлено через 1 минуту
Школьники обнаглели в последнее время.

@AlexSky-coder · 16.03.2018, 09:49

Сообщение от Пытливый

Trojan:Win32/Fuery.A!cl

Не по теме:

Я не специально, сам не знал. У меня такой ерунды не было пока не поставил касперского.

@Programmer ABC · 23.03.2018, 19:05 **[ТС]**

Как в моём калькуляторе на Delphi сделать такое ПОЛЕ edit1 как калькулятор который написан в visual studio ?

Калькуляторе на Delphi-https://yadi.sk/d/tuB_Zf_63Tgx3o

Калькуляторе на Visual Studio-https://yadi.sk/d/qIC7suwF3TgxMc

@Programmer ABC · 23.03.2018, 19:05 **[ТС]**

Вложение 922219

@ZX Spectrum-128 · 23.03.2018, 20:02

Programmer ABC, по поводу "вашего" калькулятора уже столько ваших тем, что "имеется мнение" (С). Всё это склеить в куда-нибудь.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Programmer ABC 0 / 0 / 2 Регистрация: 21.02.2018 Сообщений: 99

	Как сделать вывод в TEdit как в калькуляторе Windows? 24.02.2018, 16:58. Показов 3484. Ответов 48 Метки нет (Все метки) Как сделать Ввывод в TEdit как в Калькуляторе Windows ? Изображения 0

@droider 4894 / 2827 / 867 Регистрация: 04.10.2012 Сообщений: 10,280
	15.03.2018, 09:21
	Programmer ABC, пример Калькулятор математических выражений 0

@Programmer ABC 0 / 0 / 2 Регистрация: 21.02.2018 Сообщений: 99
	15.03.2018, 17:34 [ТС]
	чего а можно код плиз ? 0

@Matan!
	15.03.2018, 18:21
	Не по теме: Programmer ABC, а, может, почту преподавателя напишете? А мы туда сразу и отправим.. 0

@Programmer ABC 0 / 0 / 2 Регистрация: 21.02.2018 Сообщений: 99
	15.03.2018, 19:10 [ТС]
	как в Delphi сделать такое Memo1 поле как на стандартном Windows калькуляторе ? 0

@TFullControl 500 / 346 / 200 Регистрация: 20.10.2016 Сообщений: 1,101
	15.03.2018, 21:45
	Скрин Миниатюры 0

@Programmer ABC 0 / 0 / 2 Регистрация: 21.02.2018 Сообщений: 99
	15.03.2018, 21:56 [ТС]
	можно мне проект ? Добавлено через 51 секунду а как сделать так что бы при нажатии на кнопку 555 с верху вводила ? Добавлено через 1 минуту Теги: Калькулятор 0

@AlexSky-coder Да так, от скуки захожу. 145 / 124 / 44 Регистрация: 25.06.2017 Сообщений: 369 Записей в блоге: 6
	16.03.2018, 00:04
	Как-то так. Миниатюры 1

@Пытливый 3765 / 2272 / 706 Регистрация: 29.05.2013 Сообщений: 9,622
	16.03.2018, 00:36
	SkyLion27 что это еще за подарки в архиве? Trojan:Win32/Fuery.A!cl 0

@NIKOLAYY 844 / 739 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	16.03.2018, 05:56
	SkyLion27, Ну у тя там канва с цыфрами + градиентное поле если коротко на скрине я имею ввиду? 0

@NIKOLAYY 844 / 739 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	16.03.2018, 06:50
	Programmer ABC, Держи! Это можно печатать в эдит поле, дополнительные кнопки что у тебя на скрине можно добавить. Изображения 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	16.03.2018, 08:28
	Пытливый, у меня avast пропустил. Действительно, есть в архиве троян? 0

magirus Почетный модератор 28051 / 15790 / 983 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	16.03.2018, 08:36
	как то так ведущих вендоров нет. 0

@droider 4894 / 2827 / 867 Регистрация: 04.10.2012 Сообщений: 10,280
	16.03.2018, 09:19
	NIKOLAYY, Коля, как-то вообще не в тему. Добавлено через 1 минуту Школьники обнаглели в последнее время. 0

@Programmer ABC 0 / 0 / 2 Регистрация: 21.02.2018 Сообщений: 99
	23.03.2018, 19:05 [ТС]
	Как в моём калькуляторе на Delphi сделать такое ПОЛЕ edit1 как калькулятор который написан в visual studio ? Калькуляторе на Delphi-https://yadi.sk/d/tuB_Zf_63Tgx3o Калькуляторе на Visual Studio-https://yadi.sk/d/qIC7suwF3TgxMc 0

@Programmer ABC 0 / 0 / 2 Регистрация: 21.02.2018 Сообщений: 99
	23.03.2018, 19:05 [ТС]
	Вложение 922219 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	23.03.2018, 20:02
	Programmer ABC, по поводу "вашего" калькулятора уже столько ваших тем, что "имеется мнение" (С). Всё это склеить в куда-нибудь. 0