VPF::Как отловить клавишу Del - Форум программистов

kent

Дата 4.10.2005, 10:30 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 6.5.2005
Где: Russia

Репутация: нет
Всего: 1

Попробовал вот так:

Код


procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if (Key = VK_DELETE) then
       Close;
end;

не помогает, никакой реакции....
Как же её всё таки отловить?

~FoX~

Дата 4.10.2005, 10:37 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

Репутация: 13
Всего: 68

kent
А что должно произойти то?
если ничего, то Key := 0;

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

…множественность никогда не следует полагать без необходимости…

kent

Дата 4.10.2005, 10:44 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 6.5.2005
Где: Russia

Репутация: нет
Всего: 1

Цитата

kent
А что должно произойти то?
если ничего, то Key := 0;

закрытие формы, я же выше пример привел:

Код


if (Key = VK_DELETE) then
       Close;

Snowy

Дата 4.10.2005, 10:54 (ссылка)

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

Загрузка ...

Эксперт

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

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

Не срабатывает потому, что активен какой-то компонент на форме. Поэтому форма и не ловит.
Попробуй ловить или у компонента, или кинь на форму TApplicationEvents и лови им.

_hunter

Дата 4.10.2005, 10:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

kent, показывай весь код -- толи у тебя у формы KeyPrreview стоит и ты клавиши затираеш толи не на тот Delete жмеш ( например на цифровой с отключенной раскладкой ) толи фокуса на Memo нет.
именно этот кусок вполне рабочий

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

Tempora mutantur, et nos mutamur in illis...

~FoX~

Дата 4.10.2005, 10:59 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

Репутация: 13
Всего: 68

kent
Странно, у меня твой пример работает. Если конечно фокус находиться в Memo1
Попробуй так поставь Form1.KeyPreview := true;

Код


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
       if (Key = VK_DELETE) then
       Form1.Close;
end;

Тогда на любом контроле ловиться будет.

И еще посмотри не обрабатываешь ли ты где всякие KeyPress or KeyUp

Это сообщение отредактировал(а) ~FoX~ - 4.10.2005, 11:00

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

…множественность никогда не следует полагать без необходимости…

kent

Дата 4.10.2005, 10:59 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 6.5.2005
Где: Russia

Репутация: нет
Всего: 1

Цитата(Snowy @ 4.10.2005, 10:54)

Поэтому форма и не ловит.

а мне нужно чтобы Memo ловил, а не форма...

kent

Дата 4.10.2005, 11:16 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 6.5.2005
Где: Russia

Репутация: нет
Всего: 1

Цитата

И еще посмотри не обрабатываешь ли ты где всякие KeyPress or KeyUp

У меня он стоит как ShortCut у одного пункта меню, попробовал поставить в ShortCut = SHift + Del, и всё заработало...
Можно ли как нибудь это обойти(просто клавиша Del отвечает за удаление в Memo)?

Romikgy

Дата 4.10.2005, 11:16 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Фокус ей передай smile

Memo1.SetFocus;

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

_hunter

Дата 4.10.2005, 11:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

а откуда форма знает что Memo хоче клавиши перехватывать?
правильно -- не откуда
поэтому сойдет частичное решение -- ставь принудительно фокус на Memo

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

Tempora mutantur, et nos mutamur in illis...

kent

Дата 4.10.2005, 11:33 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 6.5.2005
Где: Russia

Репутация: нет
Всего: 1

_hunter, Romikgy
Попробовал вот так

Код


procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     Memo1.SetFocus;
     if (Key = VK_DELETE) then
       Close;
end;

и поставил в ShortCut опять Del опять не реагирует...

Rennigth

Дата 4.10.2005, 11:44 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 49
Всего: 76

kent
а ты лови у формы и проверяй фокус у мемо.
Добавлено @ 11:48

Код


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_DELETE) and Memo1.Focused then
    Form1.Close;
end;

Это сообщение отредактировал(а) Rennigth - 4.10.2005, 11:49

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

(* Honesta mors turpi vita potior *)

_hunter

Дата 4.10.2005, 12:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

kent, дык а толку с такого кода? -- нет у memo фокуса -- не вызовется процедура -- не самоустановится фокус. а если фокус есть -- зачем его ставить?
Добавлено @ 12:06
Rennigth, -- аналогично. если бы фокус был у memo -- клавишу можно было бы ловить у него. если не поймал -- значит нет у него фокуса

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

Tempora mutantur, et nos mutamur in illis...

kent

Дата 4.10.2005, 12:37 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 6.5.2005
Где: Russia

Репутация: нет
Всего: 1

to Rennigth
Попробовал, все равно никакой реакции...

to _hunter

Цитата

kent, дык а толку с такого кода? -- нет у memo фокуса -- не вызовется процедура -- не самоустановится фокус. а если фокус есть -- зачем его ставить?

В том то всё и дело что фокус у Memo есть(курсор то в нем мигает) но есть и ShortCut = Del у одного пункта меню, который всё портит и как обойти его непонятно...

Это сообщение отредактировал(а) kent - 4.10.2005, 12:39

~FoX~

Дата 4.10.2005, 12:59 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

Репутация: 13
Всего: 68

kent
Тогда так:

Код


procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  sc: TShortCut;
begin
  sc := MainMenu1.Items[1].ShortCut; //Или какой там у тебя итем
  MainMenu1.Items[1].ShortCut := 0;
   if (Key = VK_DELETE) then
       Form1.Close;
  MainMenu1.Items[1].ShortCut := sc;
end;

Это сообщение отредактировал(а) ~FoX~ - 4.10.2005, 13:00

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

…множественность никогда не следует полагать без необходимости…

Rennigth

Дата 4.10.2005, 13:03 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 49
Всего: 76

~FoX~
скорее всего непоможет, менюшка наверное раньше ловит и обнуляет key ...

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

(* Honesta mors turpi vita potior *)

~FoX~

Дата 4.10.2005, 13:12 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

Репутация: 13
Всего: 68

Rennigth
Если так, то в обработчике менюшке проверять стоитли фокус в мемо и если да то вызвать мемовский обработчик, а если нет собственным пользоваться. Палка то о двух концах smile

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

…множественность никогда не следует полагать без необходимости…

Rennigth

Дата 4.10.2005, 13:29 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 49
Всего: 76

~FoX~
Угу, вариант.
Кстати Kent вроде не сказал что вообще обработки никуда недоходят.
Сейчас проверил, при присвоенном ShortCut-е по этой комбинации клавишь вообще кроме как в меню события не приходят smile

Даже ApplicationEvents.onShortCut отдыхает... smile

Это сообщение отредактировал(а) Rennigth - 4.10.2005, 13:30

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

(* Honesta mors turpi vita potior *)

kent

Дата 4.10.2005, 14:04 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 6.5.2005
Где: Russia

Репутация: нет
Всего: 1

~FoX~
И это не помогает блин...
Вот так работает:

Код


procedure TMainForm.WorkMemoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var sc : TShortCut;
begin
      sc := mnuDelete.ShortCut;
      mnuDelete.ShortCut := 0;
      if (Key = VK_DELETE) then begin
        Close;
      end;
end;

а вот так нет:

Код


procedure TMainForm.WorkMemoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var sc : TShortCut;
begin
      sc := mnuDelete.ShortCut;
      mnuDelete.ShortCut := 0;
      if (Key = VK_DELETE) then begin
        Close;
      end;
      mnuDelete.ShortCut := sc;
end;

~FoX~

Дата 4.10.2005, 15:34 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

Репутация: 13
Всего: 68

Код


var sc : TShortCut; //Глобальная переменная
.......
procedure TForm1.FormShow(Sender: TObject);
begin
   sc := mnuDelete.ShortCut;
end;
....
procedure TMainForm.WorkMemoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      mnuDelete.ShortCut := 0;
      if (Key = VK_DELETE) then begin
        Close;
      end;
end;
........
procedure TMainForm.WorkMemoKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  mnuDelete.ShortCut := sc;
end;

Блин, ну это уже полный изврат.....ИМХО проще сменить шорткут в меню.

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

…множественность никогда не следует полагать без необходимости…

kent

Дата 4.10.2005, 15:41 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 6.5.2005
Где: Russia

Репутация: нет
Всего: 1

~FoX~
Всё работает как часы smile

Спасибо тебе большущее!!!
С меня +

~FoX~

Дата 4.10.2005, 15:48 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

Репутация: 13
Всего: 68

Короче вот что у меня получилось.
Form1.KeyPreeview := true;

Код


var
  Form1: TForm1;
  MyKey: word;
implementation

{$R *.dfm}

procedure TForm1.N11Click(Sender: TObject); //Твой итем меню
var
  Shift: TShiftState;
begin
  if Memo1.Focused = false then ShowMessage('Menu')
  else Memo1KeyDown (sender, Mykey, Shift);
end;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; //Обработчик мемо
  Shift: TShiftState);
begin
  if (Key = VK_DELETE) then begin
    ShowMessage('Memo');
  end;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; //Проверяем че там нажато
  Shift: TShiftState);
begin
  MyKey := Key;
end;

Не успел......ну да ладно, этот пример менее извращен, ИМХО, и тоже вроде рабочий... Вобщем удачи тебе. smile

Это сообщение отредактировал(а) ~FoX~ - 4.10.2005, 15:57

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

…множественность никогда не следует полагать без необходимости…

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