Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Послать нажатие символьных клавиш 
V
    Опции темы
Данкинг
Дата 21.3.2010, 11:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Есть код из ДРКБ, который имитирует нажатие клавиши:
Код

procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean);

type TShiftKeyInfo = record

   shift: Byte;

   vkey: Byte;

end;

byteset = set of 0..7;

const shiftkeys: array[1..3] of TShiftKeyInfo = ((shift: Ord(ssCtrl);

   vkey: VK_CONTROL), (shift: Ord(ssShift); vkey: VK_SHIFT), (shift: Ord(ssAlt); vkey: VK_MENU));



var flag: DWORD;

bShift: ByteSet absolute shift;

i: Integer;

begin

for i := 1 to 3 do

   if shiftkeys[i].shift in bShift then

     keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);

if specialkey then

   flag := KEYEVENTF_EXTENDEDKEY

else

   flag := 0;

keybd_event(key, MapvirtualKey(key, 0), flag, 0);

flag := flag or KEYEVENTF_KEYUP;

keybd_event(key, MapvirtualKey(key, 0), flag, 0);

for i := 3 downto 1 do

   if shiftkeys[i].shift in bShift then

     keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), KEYEVENTF_KEYUP, 0);

end;

Работаем так:
Код

RichEdit1.SetFocus;
PostKeyEx32(ord('9'),[],false);

Но! Если нужно послать символ из верхнего регистра, то ничего не происходит:
Код

RichEdit1.SetFocus;
PostKeyEx32(ord('('),[],false);

Вопрос: как послать в RichEdit нажатие клавиши вроде : ( ) $ ? Иными словами, как именно нажать клавишу <4>, а не имитировать нажатие символа "4" ?

Это сообщение отредактировал(а) Данкинг - 21.3.2010, 12:09


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
chip_and_dayl
Дата 21.3.2010, 12:25 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Код

PostKeyEx32(ord('9'),[ssShift],false);


Добавлено через 41 секунду
В параметрах ф-ции все написано  smile 


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Данкинг
Дата 21.3.2010, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(chip_and_dayl @  21.3.2010,  12:25 Найти цитируемый пост)
В параметрах ф-ции все написано

Да, с параметрами-то я разобрался. Теперь понял, в чём была ошибка: у меня изначально посылалось не "9", а "(", потому и не работало. Вопрос решён. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Данкинг
Дата 22.3.2010, 00:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Так, вопрос всё же не до конца решён. smile А как нажать клавишу, например, <, или >, или ?, или @ ? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
chip_and_dayl
Дата 22.3.2010, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Код

PostKeyEx32(50,[ssshift],false); 

Выводит собачку.
Код

PostKeyEx32(50,[ssshift],false); 


Хотя ф-ция странная, если ей передать символ "а" в таком виде 
Код

PostKeyEx32(ord('a'),[],false);

То результат 1

А если 
Код

PostKeyEx32(65,[],false);

То результат "а"


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Данкинг
Дата 22.3.2010, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
chip_and_dayl, а 50 - это что за код? Думал, что ASCII, но у собачки 64, а не 50.

Цитата(chip_and_dayl @  22.3.2010,  11:33 Найти цитируемый пост)
Хотя ф-ция странная

Странная, но я лучше не нашёл. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
chip_and_dayl
Дата 22.3.2010, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Ну, я там еще передаю нажатие Шифта smile В сочетание с ним код 50 получается не кодом 50



--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Данкинг
Дата 22.3.2010, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Ну хорошо, а как узнать, какой нужен код для всех этих <>/ в сочетании с шифтом? Если знать, то нажатие нескольких этих клавиш я могу и вручную прописать в программе, что делать ещё.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
chip_and_dayl
Дата 22.3.2010, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Данкинг
К сожалению ничего сказать не могу.

Кстати, а зачем это все!?! 


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Данкинг
Дата 22.3.2010, 15:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(chip_and_dayl @  22.3.2010,  13:32 Найти цитируемый пост)
Кстати, а зачем это все!?!  

Чтобы посылать символы в RichEdit, а зачем ещё? smile Или конкретно программа интересует? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
chip_and_dayl
Дата 22.3.2010, 22:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Цитата(Данкинг @  22.3.2010,  15:21 Найти цитируемый пост)
Чтобы посылать символы в RichEdit, а зачем ещё?

Мне кажется можно и проще туда заслатьsmile Там же можно отследить где стоить курсор и в то место вставить символsmile



--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Данкинг
Дата 22.3.2010, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Может, и можно, об этом я ещё не думал. smile  В общем, вот программа, смысл - при клике на Label'ах с буквами эти буквы переносятся в RichEdit. Только шрифт установить надо.


Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  armenian.rar 80,24 Kb


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Keeper89
Дата 23.3.2010, 02:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Можно еще так попробовать (опять не дает мне форум прикрепить архив  smile ):
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure LabelClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: char;
  j: Integer;
begin
  // Произвольное заполнение буквами

  j := 1;

  for i := 'A' to 'Z' do
    with TLabel.Create(Self) do
    begin
      Name := 'Label' + i;
      Parent := Self;
      Caption := i;
      Width := Canvas.TextWidth(Caption);
      Height := Canvas.TextHeight(Caption);
      Left := 10;
      Top := j * Height;
      Visible := True;
      OnClick := LabelClick;
      inc(j);
    end;
end;

procedure TForm1.LabelClick(Sender: TObject);
begin
  // Нажимаем

  RichEdit1.Perform(WM_CHAR,
                    Ord((Sender as TLabel).Caption),
                    0)
end;

end.

З.Ы. Твой пример я глянуть не могу, там пакет скинов, которого у меня нет )


Это сообщение отредактировал(а) Keeper89 - 23.3.2010, 02:20


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 23.3.2010, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(Keeper89 @  23.3.2010,  02:20 Найти цитируемый пост)
Можно еще так попробовать

Да, так вроде работает, только теперь надо ещё отдельные Label'ы для строчных букв сделать. smile 

Цитата(Keeper89 @  23.3.2010,  02:20 Найти цитируемый пост)
Твой пример я глянуть не могу, там пакет скинов, которого у меня нет )

Я уже потом сообразил, там ещё и FastReport. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Keeper89
Дата 23.3.2010, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Цитата(Данкинг @  23.3.2010,  12:12 Найти цитируемый пост)
Да, так вроде работает, только теперь надо ещё отдельные Label'ы для строчных букв сделать.

Необязательно, можно вставлять в Едит буквы в зависимости от нажатого шифта (проверять в LabelClick через GetKeyState).


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 23.3.2010, 17:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(Keeper89 @  23.3.2010,  15:46 Найти цитируемый пост)
Необязательно, можно вставлять в Едит буквы в зависимости от нажатого шифта (проверять в LabelClick через GetKeyState). 

Не понял, а как это с .Caption связать? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Keeper89
Дата 24.3.2010, 00:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Цитата(Данкинг @  23.3.2010,  17:51 Найти цитируемый пост)
Не понял, а как это с .Caption связать?

Например так:
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure LabelClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: char;
  j: Integer;
begin
  // Произвольное заполнение буквами
  j := 1;

  for i := 'a' to 'z' do
    with TLabel.Create(Self) do
    begin
      Name := 'Label' + i;
      Parent := Self;
      Caption := i;
      Width := Canvas.TextWidth(Caption);
      Height := Canvas.TextHeight(Caption);
      Left := 10;
      Top := j * Height;
      Visible := True;
      OnClick := LabelClick;
      inc(j);
    end;
end;

procedure TForm1.LabelClick(Sender: TObject);
var
  myChar: string;
begin
  // Нажимаем
  
  myChar := (Sender as TLabel).Caption;

  if ((GetKeyState(VK_SHIFT) and 128) = 128) then
    myChar := AnsiUpperCase(myChar);
  RichEdit1.Perform(WM_CHAR,
                    Ord(myChar),
                    0)
end;
end.

По идее можно было бы вообще накидать на форме виртуальную клавиатуру с учетом всех символов smile

Это сообщение отредактировал(а) Keeper89 - 24.3.2010, 00:29


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 24.3.2010, 00:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(Keeper89 @  24.3.2010,  00:27 Найти цитируемый пост)
Например так:

Попробовал сейчас. Работает, но не со всеми армянскими буквами. smile Так что, видимо, придётся всё же дополнительные метки рисовать.

Цитата(Keeper89 @  24.3.2010,  00:27 Найти цитируемый пост)
По идее можно было бы вообще накидать на форме виртуальную клавиатуру с учетом всех символов 

Ну так это можно и в "ворде" набирать с таким же успехом. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Keeper89
Дата 24.3.2010, 00:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Цитата(Данкинг @  24.3.2010,  00:38 Найти цитируемый пост)
Ну так это можно и в "ворде" набирать с таким же успехом.

Не, я имею ввиду только строчные, а прописные ставить в зависимости от шифта.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 24.3.2010, 00:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Ладно, в общем, тема ещё раз закрыта, всем ещё раз спасибо. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
former
Дата 24.3.2010, 09:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17
Данкинг, а может в Tag-ах Lable-ов хранить коды символов? Например, сделать двумерный массив констант (в первой строке символ, во-второй - код) и создавать динамически Lable-ы, заполняя из этого массива свойства Caption и Tag.

Это сообщение отредактировал(а) former - 24.3.2010, 09:21


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
Данкинг
Дата 24.3.2010, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(former @  24.3.2010,  09:14 Найти цитируемый пост)
а может в Tag-ах Lable-ов хранить коды символов?

Для этого сначала ещё надо определить, какому армянскому символу соответствует какой латинский символ, и ничего не перепутать. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
former
Дата 24.3.2010, 13:01 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17
Цитата(Данкинг @  24.3.2010,  11:42 Найти цитируемый пост)
Для этого сначала ещё надо определить, какому армянскому символу соответствует какой латинский символ, и ничего не перепутать.
  smile smile

Добавлено @ 13:11
Данкинг, один раз сделаешь и все. Его (массив) можно даже в файле с юникодом хранить. Захочешь другой язык использовать, просто поменяешь файл. А количество создаваемых Lable-ов при этом будет изменяться динамически, в зависимости от размера массива, а не фиксировано.

Это сообщение отредактировал(а) former - 24.3.2010, 13:14


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1110 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.