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

ama_kid

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

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

Загрузка ...

АСУТП-кодер

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

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

Цитата(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 (ссылка)

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

Загрузка ...

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

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

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

Цитата(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 - фига_с_два - не попадаю

Это сообщение отредактировал(а) pseud - 21.11.2007, 17:40

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

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

Akella

Дата 21.11.2007, 17:48 (ссылка)

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

Загрузка ...

Творец

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

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

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

Это сообщение отредактировал(а) Akella - 21.11.2007, 17:48

Akella

Дата 21.11.2007, 18:21 (ссылка)

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

Загрузка ...

Творец

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

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

но этот код работает на ура и даже 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 (ссылка)

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

Загрузка ...

АСУТП-кодер

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

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

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

)

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

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

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

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

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

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

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

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