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

← →
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 мы его оброботали, но при этом в списке курсор(выделеная строка) побежала вверх. А как чтобы не бежала???

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

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