VPF::Обработать Ctrl+1 - Форум программистов

Akella

Дата 21.11.2007, 10:07 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Есть код, который срабатывает при нажатии на Enter или Shift+Enter

Код


procedure TfmAdd.FormKeyPress(Sender: TObject; var Key: Char);
begin
  //Enter as Tab
  if (Key = #13) then begin

      if GetKeyState(VK_Shift) and $8000 <> 0 then
        PostMessage(Handle, WM_NEXTDLGCTL, 1, 0)
      else
        PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);

      Key := #0;
  end;

Код этот нормально работает.

Так вот, на примере его я хочу отлавливать нажатие Ctrl+1, Ctrl+2 ... Ctrl+6

Код


  if key = '1' then
    if GetKeyState(VK_CONTROL) and $8000 <> 0 then
       cboxPn.Checked := not cboxPn.Checked;

Но код не срабатывает. Может есть у кого пример?

pseud

Дата 21.11.2007, 10:13 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

видимо кто-то перехватывает раньше и не передает сюда

быстрое решение: использовать OnKeyUp
работает

Код


procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = Ord('1') then
    if GetKeyState(VK_CONTROL) and $8000 <> 0 then
       ShowMessage('ctrl+1');
end;

можно Shift использовать вместо GetKeyState

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Alexeis

Дата 21.11.2007, 10:19 (ссылка)

(голосов:1)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Код


  if (Key = Ord('1'))and (ssCtrl in Shift)
  then
    ShowMessage('ctr+1');

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Akella

Дата 21.11.2007, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Та так знаю, но слишком просто, а настоящие герои всегда идут в обход. smile

Добавлено через 40 секунд

Цитата(pseud @ 21.11.2007, 10:13

)

идимо кто-то перехватывает раньше и не передает сюда

хто? я ж один за компом smile

Snowy

Дата 21.11.2007, 11:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

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

Akella

Дата 21.11.2007, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

нет, Ctrl+1 нигде не прописан

Код


 if key = '1' then
    if GetKeyState(VK_CONTROL) and $8000 <> 0 then
       cboxPn.Checked := not cboxPn.Checked;

дебаггер останавливается на первой строчке, а if GetKeyState(... пропускает, всмысле перепрыгивает

Добавлено через 1 минуту и 23 секунды
Ну я сделал через KeyDown, т.е. проблема как бы решена. Но через KeyPress так и не смог. Спасибо, всем smile

ama_kid

Дата 21.11.2007, 11:51 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 15
Всего: 95

Цитата(Akella @ 21.11.2007, 11:34

)

дебаггер останавливается на первой строчке, а if GetKeyState(... пропускает, всмысле перепрыгивает

А разве Ctrl+1 соответствует какому-либо ASCII-символу? Из справки Delphi:

Цитата

Keys that don't correspond to an ASCII Char value (Shift or F1, for example) don't generate an OnKeyPress event

--------------------

самурай без меча подобен самураю с мечом, но только без меча

Akella

Дата 21.11.2007, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(ama_kid @ 21.11.2007, 11:51

)

А разве Ctrl+1 соответствует какому-либо ASCII-символу?

а как же это?
Ord('1')

Добавлено через 1 минуту и 5 секунд

Цитата

Keys that don't correspond to an ASCII Char value (Shift or F1, for example) don't generate an OnKeyPress event

тем не менее, как видно из примера, можно и Shift обрабатывать и F1 думаю, что тоже

ama_kid

Дата 21.11.2007, 12:31 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 15
Всего: 95

Цитата(Akella @ 21.11.2007, 12:19

)

а как же это?
Ord('1')

Ord('1') - это код символа, соответствующего нажатию просто клавиши '1' - в любом редакторе эта клавиша выдаст этот символ... А вот Ctrl+1 нигде никакого символа не напишет - это типа какая-нить "управляющая комбинация" и OnKeyPress, по идее, не должен генерироваться, что кстати и подтвержается у меня опытом (но вокруг меня только ноутбуки и я не уверен, что аналогично происходит на десктопе)...

Цитата(Akella @ 21.11.2007, 12:19

)

тем не менее, как видно из примера, можно и Shift обрабатывать и F1 думаю, что тоже

голый Shift OnKeyPress не генерит, а вот Shift+a - генерит (большая буква А), поэтому конечно можно... Насчет F1 - есть сомнения...

--------------------

самурай без меча подобен самураю с мечом, но только без меча

pseud

Дата 21.11.2007, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(Akella @ 21.11.2007, 11:34

)

Ну я сделал через KeyDown,

зря

а теперь попробуй нажать Ctrl+1 и не отпускать
и сколько раз у тебя ето все дело выполнится? ну сколько успеет, во всяком случае больше одного

а вот с KeyPress и KeyUp - только один

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Akella

Дата 21.11.2007, 14:07 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(ama_kid @ 21.11.2007, 12:31

)

Ctrl+1

ну дык... это сочетание клавишь, а кодов сочетаний нет как таковых

Добавлено через 2 минуты и 4 секунды

Цитата(pseud @ 21.11.2007, 12:34

)

а теперь попробуй нажать Ctrl+1 и не отпускать
и сколько раз у тебя ето все дело выполнится?

та отож :(

Добавлено через 3 минуты и 51 секунду

Цитата(ama_kid @ 21.11.2007, 12:31

)

. А вот Ctrl+1 нигде никакого символа не напишет - это типа какая-нить "управляющая комбинация" и OnKeyPress, по идее, не должен генерироваться,

по нажатию на Ctrl не генерируется, а вот по нажатию на 1 генерируется, и вот здесь ты уже проверяешь, держит ли юзер Ctrl или Alt или Shift

Добавлено через 4 минуты и 47 секунд

Цитата(ama_kid @ 21.11.2007, 12:31

)

что кстати и подтвержается у меня опытом

Т.е. по твоим убеждениям

Код


procedure TfmAdd.FormKeyPress(Sender: TObject; var Key: Char);
begin
  //Enter as Tab
  if (Key = #13) then begin
      if GetKeyState(VK_Shift) and $8000 <> 0 then
        PostMessage(Handle, WM_NEXTDLGCTL, 1, 0)
      else
        PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
      Key := #0;
  end;

неработоспособен smile

ama_kid

Дата 21.11.2007, 14:32 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 15
Всего: 95

Akella, в отличие от Ctrl+1 - Enter генерирует ASCII символ (перевод строки), поэтому данный код жизнеспособен и правилен... по моим убеждениям неработоспособной является проверка Ctrl+1 в обработчике OnKeyPress, ибо эту комбинацию нельзя отловить в принципе в данном обработчике (опять же, по моим убеждениям) т.к. ASCII-символ не генерится (ты можешь спокойно проверять это все дело в обработчиках OnKeyUp\Down, ибо туда приходят уже все нажатия любых клавиш, что собсно в итоге ты и сделал, но не все комбинации вызывают OnKeyPress, а только те, которые генерят ASCII-символы)... Поэтому меня и удивило, что ты тут написал, что у тебя "дебаггер останавливается...", хотя по идее - обработчик не должен был вообще срабатывать (у меня не срабатывает)... Вот у меня и возник вопрос - какому ASCII символу соответствует данная комбинация, если у тебя вызвалось событие OnKeyPress при нажатии Ctrl+1?... Или я что-то не так понял?

--------------------

самурай без меча подобен самураю с мечом, но только без меча

Akella

Дата 21.11.2007, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(ama_kid @ 21.11.2007, 14:32

)

в отличие от Ctrl+1 - Enter генерирует ASCII символ

а цифирЯ "1", значит-с, не генерирует?

Добавлено через 1 минуту и 34 секунды
см. обведенное красным smile

Добавлено через 3 минуты и 41 секунду

Цитата(ama_kid @ 21.11.2007, 14:32

)

что ты тут написал, что у тебя "дебаггер останавливается...",

а ты сам попробуй smile

Добавлено через 5 минут и 23 секунды

Цитата(ama_kid @ 21.11.2007, 14:32

)

хотя по идее - обработчик не должен был вообще срабатывать

клавиша 1 нажата??????? НАЖАТА!!!! значит происходит OnKeyPress, значит эта строка выполнится:

Код


if key = '1' then

Добавлено через 6 минут и 8 секунд
а дальше проверяем нажата ли Ctrl, вот у меня именно с этим проблемы, с определением нажата ли ctrl, в одном примере работает, а в другом нет

ama_kid

Дата 21.11.2007, 16:07 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 15
Всего: 95

Блин, я видимо никак не могу донести свою мысль... Ладно, продемонстрирую на примере свою линию размышления. Вызов OnKeyPress является ответом на приход сообщения WM_CHAR (в исходниках VCL - это файл Controls.pas строки 7098-7126 для Delphi 7). Дальше, я создаю новый пустой проект и перекрываю это сообщение следующим образом:

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMChar(var Mes:TWMChar); message WM_CHAR;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMChar(var Mes: TWMChar);
begin
 ShowMessage(IntToStr(Mes.CharCode));
 inherited;
end;

end.

Запускаю, появляется пустая форма... Нажимаю просто одну клавишу '1'. Вылезает ShowMessage c надписью '49' (ASCII-код символа '1'). Это все понятно. Но вот нажимаю Ctrl+1 - не вылезает вообще никакого сообщения - это значит, что WM_CHAR не приходит, следовательно никакого OnKeyPress не должно быть... (Про WM_KEYUP\WM_KEYDOWN в данном случае я вообще ничего не говорю - они приходят исправно)... И я просто не могу понять, почему тебе приходит WM_CHAR при нажатии на Ctrl+1 (раз обработчик срабатывает), а у меня нет?

Это сообщение отредактировал(а) ama_kid - 21.11.2007, 16:23

--------------------

самурай без меча подобен самураю с мечом, но только без меча

Akella

Дата 21.11.2007, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(ama_kid @ 21.11.2007, 16:07

)

перекрываю это сообщение следующим образом:

зачем его прекрывать? smile

я и не говорил ни разу здесь о перекрытии

Добавлено через 40 секунд
ты создай пустой проект без всяких перекрытий

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »