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

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: Общие вопросы \| Следующая тема »