Текущий архив: 2003.01.23;
Скачать: CL | DM;

Вниз

Перехват нажатия клавиатуры   Найти похожие ветки 

← →
Domkrat   (2002-12-05 15:48) [0]

Подскажите, как заставить все комбобоксы в
приложении открываться по нажатию [Сtrl+Down],
а не [ALT+DOWN] как обычно.

---

← →
Smashich ©   (2002-12-05 15:56) [1]

KeyDown перегрузи и комбобокса

---

← →
Smashich ©   (2002-12-05 15:59) [2]

type TMyComboEdit = class(TCusomComboBox)
......
FClickKey: TShortCut;
......
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
.....
procedure TMyComboEdit.KeyDown(var Key: Word; Shift: TShiftState);
begin
if (FClickKey = ShortCut(Key, Shift)) then
begin
DropDown;
Key := 0;
end;
inherited KeyDown(Key, Shift);
end;

---

← →
Domkrat   (2002-12-05 17:27) [3]

Спасибо Smashich,
а нельзя Alt переделать Ctrl и наоборот
не используя KeyDown отлавливая виндовые месседжи, чтобы Alt
вел себя как Ctrl на уровне Aplication.

---

← →
Diamond Cat ©   (2002-12-05 21:50) [4]

на application.onmessage отлавливаешь нажатие alt и Perform его

---

← →
Domkrat   (2002-12-09 22:27) [5]

Спасибо All.

---

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

Текущий архив: 2003.01.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c