Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Послать нажатие символьных клавиш

Автор: Данкинг 21.3.2010, 11:57

Есть код из ДРКБ, который имитирует нажатие клавиши: Код 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" ?

Автор: chip_and_dayl 21.3.2010, 12:25

Код PostKeyEx32(ord('9'),[ssShift],false); Добавлено через 41 секунду В параметрах ф-ции все написано

Автор: Данкинг 21.3.2010, 12:39

Цитата(chip_and_dayl @  21.3.2010,  12:25 ) В параметрах ф-ции все написано Да, с параметрами-то я разобрался. Теперь понял, в чём была ошибка: у меня изначально посылалось не "9", а "(", потому и не работало. Вопрос решён.

Автор: Данкинг 22.3.2010, 00:40

Так, вопрос всё же не до конца решён.  А как нажать клавишу, например, <, или >, или ?, или @ ?

Автор: chip_and_dayl 22.3.2010, 11:33

Код PostKeyEx32(50,[ssshift],false);  Выводит собачку. Код PostKeyEx32(50,[ssshift],false);  Хотя ф-ция странная, если ей передать символ "а" в таком виде  Код PostKeyEx32(ord('a'),[],false); То результат 1 А если  Код PostKeyEx32(65,[],false); То результат "а"

Автор: Данкинг 22.3.2010, 11:41

chip_and_dayl, а 50 - это что за код? Думал, что ASCII, но у собачки 64, а не 50. Цитата(chip_and_dayl @  22.3.2010,  11:33 ) Хотя ф-ция странная Странная, но я лучше не нашёл.

Автор: chip_and_dayl 22.3.2010, 11:50

Ну, я там еще передаю нажатие Шифта  В сочетание с ним код 50 получается не кодом 50

Автор: Данкинг 22.3.2010, 12:04

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

Автор: chip_and_dayl 22.3.2010, 13:32

Данкинг К сожалению ничего сказать не могу. Кстати, а зачем это все!?!

Автор: Данкинг 22.3.2010, 15:21

Цитата(chip_and_dayl @  22.3.2010,  13:32 ) Кстати, а зачем это все!?!   Чтобы посылать символы в RichEdit, а зачем ещё?  Или конкретно программа интересует?

Автор: chip_and_dayl 22.3.2010, 22:22

Цитата(Данкинг @  22.3.2010,  15:21 ) Чтобы посылать символы в RichEdit, а зачем ещё? Мне кажется можно и проще туда заслать Там же можно отследить где стоить курсор и в то место вставить символ

Автор: Данкинг 22.3.2010, 22:48

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

Автор: Keeper89 23.3.2010, 02:20

Можно еще так попробовать (опять не дает мне форум прикрепить архив   ): Код 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. З.Ы. Твой пример я глянуть не могу, там пакет скинов, которого у меня нет )

Автор: Данкинг 23.3.2010, 12:12

Цитата(Keeper89 @  23.3.2010,  02:20 ) Можно еще так попробовать Да, так вроде работает, только теперь надо ещё отдельные Label'ы для строчных букв сделать.   Цитата(Keeper89 @  23.3.2010,  02:20 ) Твой пример я глянуть не могу, там пакет скинов, которого у меня нет ) Я уже потом сообразил, там ещё и FastReport.

Автор: Keeper89 23.3.2010, 15:46

Цитата(Данкинг @  23.3.2010,  12:12 ) Да, так вроде работает, только теперь надо ещё отдельные Label'ы для строчных букв сделать. Необязательно, можно вставлять в Едит буквы в зависимости от нажатого шифта (проверять в LabelClick через GetKeyState).

Автор: Данкинг 23.3.2010, 17:51

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

Автор: Keeper89 24.3.2010, 00:27

Цитата(Данкинг @  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. По идее можно было бы вообще накидать на форме виртуальную клавиатуру с учетом всех символов

Автор: Данкинг 24.3.2010, 00:38

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

Автор: Keeper89 24.3.2010, 00:40

Цитата(Данкинг @  24.3.2010,  00:38 ) Ну так это можно и в "ворде" набирать с таким же успехом. Не, я имею ввиду только строчные, а прописные ставить в зависимости от шифта.

Автор: Данкинг 24.3.2010, 00:58

Ладно, в общем, тема ещё раз закрыта, всем ещё раз спасибо.

Автор: former 24.3.2010, 09:14

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

Автор: Данкинг 24.3.2010, 11:42

Цитата(former @  24.3.2010,  09:14 ) а может в Tag-ах Lable-ов хранить коды символов? Для этого сначала ещё надо определить, какому армянскому символу соответствует какой латинский символ, и ничего не перепутать.

Автор: former 24.3.2010, 13:01

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)