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

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

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

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

@droider 4893 / 2826 / 867 Регистрация: 04.10.2012 Сообщений: 10,278
	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 Почетный модератор 28051 / 15788 / 983 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	16.03.2018, 08:36
	как то так ведущих вендоров нет. 0

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