Как сделать вывод в 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, по поводу "вашего" калькулятора уже столько ваших тем, что "имеется мнение" (С). Всё это склеить в куда-нибудь.

Новые блоги и статьи Все статьи Все блоги /
20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.
Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .

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

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

@droider 4893 / 2826 / 867 Регистрация: 04.10.2012 Сообщений: 10,275
	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

@Пытливый 3764 / 2272 / 705 Регистрация: 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 Почетный модератор 28050 / 15786 / 983 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	16.03.2018, 08:36
	как то так ведущих вендоров нет. 0

@droider 4893 / 2826 / 867 Регистрация: 04.10.2012 Сообщений: 10,275
	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