Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Delphi: Общие вопросы > Обработать Ctrl+1

Автор: Akella 21.11.2007, 10:07

Есть код, который срабатывает при нажатии на 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

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

быстрое решение: использовать 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

Код


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

Автор: Akella 21.11.2007, 10:27

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

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

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

)

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

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

Автор: Snowy 21.11.2007, 11:25

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

Автор: Akella 21.11.2007, 11:34

нет, 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

Цитата(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

Цитата(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

Цитата(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

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

)

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

зря

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

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

Автор: Akella 21.11.2007, 14:07

Цитата(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

Akella, в отличие от Ctrl+1 - Enter генерирует ASCII символ (перевод строки), поэтому данный код жизнеспособен и правилен... по моим убеждениям неработоспособной является проверка Ctrl+1 в обработчике OnKeyPress, ибо эту комбинацию нельзя отловить в принципе в данном обработчике (опять же, по моим убеждениям) т.к. ASCII-символ не генерится (ты можешь спокойно проверять это все дело в обработчиках OnKeyUp\Down, ибо туда приходят уже все нажатия любых клавиш, что собсно в итоге ты и сделал, но не все комбинации вызывают OnKeyPress, а только те, которые генерят ASCII-символы)... Поэтому меня и удивило, что ты http://forum.vingrad.ru/index.php?showtopic=182989&view=findpost&p=1322913 написал, что у тебя "дебаггер останавливается...", хотя по идее - обработчик не должен был вообще срабатывать (у меня не срабатывает)... Вот у меня и возник вопрос - какому ASCII символу соответствует данная комбинация, если у тебя вызвалось событие OnKeyPress при нажатии Ctrl+1?... Или я что-то не так понял?

Автор: Akella 21.11.2007, 15:11

Цитата(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

Блин, я видимо никак не могу донести свою мысль... Ладно, продемонстрирую на примере свою линию размышления. Вызов 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 (раз обработчик срабатывает), а у меня нет?

Автор: Akella 21.11.2007, 16:32

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

)

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

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

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

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

Автор: ama_kid 21.11.2007, 16:38

Цитата(Akella @ 21.11.2007, 16:32

)

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

Для того, чтобы отловить WM_CHAR на самом раннем этапе. Изначально я и говорил, что в случае:

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 ShowMessage(Key);
end;

end.

при нажатии Ctrl+1 у меня сообщение не выскакивает - дальше пошел к истокам...

Автор: pseud 21.11.2007, 17:39

Цитата(Akella @ 21.11.2007, 16:32

)

ты создай пустой проект без всяких перекрытий

я создал пустой проект
написал:

Код


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

так вот если нажать "1", то я сюда попадаю
а если нажать "1", удерживая Ctrl - фига_с_два - не попадаю

Автор: Akella 21.11.2007, 17:48

блин, доигрался, теперь и у меня не выскакивает smile

Автор: Akella 21.11.2007, 18:21

но этот код работает на ура и даже 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;

Добавлено через 9 минут и 26 секунд
значит и c Ctrl тоже болжно по идее работать

Автор: ama_kid 21.11.2007, 18:41

Цитата(Akella @ 21.11.2007, 18:21

)

значит и c Ctrl тоже болжно по идее работать

Опять по второму кругу? smile

Я ведь и пытался сказать, что с Ctrl-как раз не должно, потому что при нажатии клавиш совместно с ним - не генерируются печатные символы, не приходит сообщение WM_CHAR, следовательно такие комбинации ловятся только в OnKeyUp\Down. OnKeyPress работает не с кодами клавиш, а с кодами символов, и предназначен для обработки вводимого символа... smile

По-моему, вполне логично... Меня только смутило, что у тебя "дебаггер останавливался..." при нажатии данной комбинации...

P.S. Про Enter - я уже говорил - он генерирует печатный символ...