Виртуальная клавиатура на делфи

@ALEXandr20333 · Регистрация: 30.01.2014

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

Как написать виртуальную клавиатуру на делфи??? с чего начать и как обьявить код к примеру при нажатии на букву А на экране появлялась в Edite этаж буква????

quwy · 19.09.2014, 16:15

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

при нажатии на букву А на экране появлялась в Edite этаж буква????

В своем приложении, или в чужом?

@саша40 · 19.09.2014, 19:03

Автор, читаю статью: Эмуляция нажатия клавиш на клавиатуре.
Если потребуется отослать сообщение, то отправляй в то, где находится курсор ввода.
Установить - SetFocus. Определить - GetFocus.

@ALEXandr20333 · 20.09.2014, 01:45 **[ТС]**

в Edite должна появится буква А

quwy · 20.09.2014, 01:59

Кидаете на форму кнопки в виде клавиатуры, устанавливаете им Caption-ы по буквам, ставите всем один обработчик OnClick:
Edit1.Text:= Edit1.Text+TButton(Sender).Caption;

@ALEXandr20333 · 20.09.2014, 16:40 **[ТС]**

А КАК сделать чтобы при нажатии CapsLock буквы были заглавными

raxper · 20.09.2014, 22:01

quwy · 21.09.2014, 02:00

Delphi
1
2
3
4
if GetKeyState(VK_SHIFT) and $8000 = $8000 then
  Edit1.Text:= Edit1.Text+AnsiUpperCase(TButton(Sender).Caption)
else
  Edit1.Text:= Edit1.Text+TButton(Sender).Caption;

@northener · 21.09.2014, 02:50

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

А КАК сделать чтобы при нажатии CapsLock буквы были заглавными

Какой CapsLock? Виртуальный?

Добавлено через 1 минуту
quwy, какой GetKeyState у виртуальной (читай экранной) клавиатуры?

quwy · 21.09.2014, 02:58

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

какой GetKeyState у виртуальной (читай экранной) клавиатуры?

Ну, если тыкать кнопки на виртуальной клавиатуре с нажатым аппаратным шифтом, то должны набираться буквы в верхнем регистре. А так да, невнимательно прочитал пост, на который отвечал, спрашивали про капс, написал про шифт...

@northener · 21.09.2014, 03:06

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

Ну, если тыкать кнопки на виртуальной клавиатуре с нажатым аппаратным шифтом, то

А на хрена, позвольте спросить, нужна виртуальная клавиатура, если есть "аппаратный шифт", который кроме как на "аппаратной клавиатуре" вроде как и не наблюдается?

quwy · 21.09.2014, 03:33

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

А на хрена, позвольте спросить, нужна виртуальная клавиатура, если есть "аппаратный шифт", который кроме как на "аппаратной клавиатуре" вроде как и не наблюдается?

Всякое бывает, но виртуальная клавиатура при наличии "железной", ИМХО, должна учитывать ее состояние. Бывает, что обе используются одновременно.

@northener · 21.09.2014, 03:36

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

Бывает, что обе используются одновременно.

Пруфлинк?

Не по теме:

В прежнем своём ответе я поставил смайлик.

quwy · 21.09.2014, 03:47

Не по теме:

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

Пруфлинк?

Запилить видео, как я одновременно использую аппаратную клаву совместно с виртуальной на ведроидном планшете? :)

@ALEXandr20333 · 22.09.2014, 00:51 **[ТС]**

а у вас нет исходника никакого похожего хотя бы виртуальной клавиатуры

raxper · 22.09.2014, 07:41

TC, для кого видео выше выложено?

@ALEXandr20333 · 22.09.2014, 13:56 **[ТС]**

а на каком языке она написана??

raxper · 22.09.2014, 21:18

...юморист.

@northener · 23.09.2014, 02:34

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

Запилить видео, как я одновременно использую аппаратную клаву совместно с виртуальной на ведроидном планшете?

Не. "ведроидном" и "планшете" вполне достаточно.

@ALEXandr20333 · 25.09.2014, 23:19 **[ТС]**

не ну хотелось что-то по-проще если возможно

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@ALEXandr20333 2 / 2 / 1 Регистрация: 30.01.2014 Сообщений: 263

	Виртуальная клавиатура на делфи 19.09.2014, 16:00. Показов 10078. Ответов 20 Метки нет (Все метки) Как написать виртуальную клавиатуру на делфи??? с чего начать и как обьявить код к примеру при нажатии на букву А на экране появлялась в Edite этаж буква???? 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	19.09.2014, 19:03
	Автор, читаю статью: Эмуляция нажатия клавиш на клавиатуре. Если потребуется отослать сообщение, то отправляй в то, где находится курсор ввода. Установить - SetFocus. Определить - GetFocus. 0

@ALEXandr20333 2 / 2 / 1 Регистрация: 30.01.2014 Сообщений: 263
	20.09.2014, 01:45 [ТС]
	в Edite должна появится буква А 0

quwy Native x86 6857 / 3790 / 1025 Регистрация: 13.02.2013 Сообщений: 11,861
	20.09.2014, 01:59
	Кидаете на форму кнопки в виде клавиатуры, устанавливаете им Caption-ы по буквам, ставите всем один обработчик OnClick: Edit1.Text:= Edit1.Text+TButton(Sender).Caption; 0

@ALEXandr20333 2 / 2 / 1 Регистрация: 30.01.2014 Сообщений: 263
	20.09.2014, 16:40 [ТС]
	А КАК сделать чтобы при нажатии CapsLock буквы были заглавными 0

raxper 10237 / 6615 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	20.09.2014, 22:01
	0

@ALEXandr20333 2 / 2 / 1 Регистрация: 30.01.2014 Сообщений: 263
	22.09.2014, 00:51 [ТС]
	а у вас нет исходника никакого похожего хотя бы виртуальной клавиатуры 0

@ALEXandr20333 2 / 2 / 1 Регистрация: 30.01.2014 Сообщений: 263
	22.09.2014, 13:56 [ТС]
	а на каком языке она написана?? 0

raxper 10237 / 6615 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	22.09.2014, 21:18
	...юморист. 0

@ALEXandr20333 2 / 2 / 1 Регистрация: 30.01.2014 Сообщений: 263
	25.09.2014, 23:19 [ТС]
	не ну хотелось что-то по-проще если возможно 1