Скачать: CL | DM;

Чтобы сообщения клавы получала только форма?   Найти похожие ветки 

← →
Viacheslav   (2006-09-04 05:13) [0]

Имеется форма(KeyPteview=TRUE), на форме TListView.
Как мне сделать так чтобы при нажатии клавиш все сообщения получала ТОЛЬКО форма, а список нет.

---

← →
Elen ©   (2006-09-04 07:54) [1]

> Viacheslav

Создай для формы обработчик, потом OnClick и ListView1.OnClick:=formclick;

---

← →
Gens ©   (2006-09-04 08:01) [2]

Используй для формы обработчик OnKeyPress, keyPreview := true, в списке можно тоже в обработчике OnKeyPress вбить Form.KeyPress;

---

← →
Elen ©   (2006-09-04 08:13) [3]

> Создай для формы обработчик, потом OnClick и ListView1.OnClick:
> =formclick;

Пардон - опечатка не OnClick а OnKeyPress

---

← →
MBo ©   (2006-09-04 08:45) [4]

Цель какая?

---

← →
Viacheslav   (2006-09-06 05:08) [5]

> Цель какая?

Допустим нажали мы <Ctrl+Up> в TForm1.OnKeyDown мы его оброботали, но при этом в списке курсор(выделеная строка) побежала вверх. А как чтобы не бежала???

---

← →
Loginov Dmitry ©   (2006-09-06 08:11) [6]


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if (ssCtrl in Shift) and (Key = VK_UP) and
    (ActiveControl = ListBox1)
 then
   Key := 0;
end;


При этом KeyPreview = True

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c