Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Вниз

был ли нажат CTRL ?   Найти похожие ветки 

← →
redlord   (2005-01-11 22:03) [0]

всем привет
народ как узнать был ли нажат CTRL  
я пробовал делать как показано ниже
но компилятор ругается на ssctrl
(не тот тип)
как это зделать правильно ??

procedure TForm1.Memo2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
 
begin
if (shift = ssctrl  ) and( key = 13) then showmessage("ок");
end;

---

← →
Palladin ©   (2005-01-11 22:04) [1]

ssctrl in shift

---

← →
Gero ©   (2005-01-11 22:40) [2]

> shift = ssctrl

Shift это множество, а ssCtrl — значение перечисляемого типа.

---

← →
redlord   (2005-01-11 23:09) [3]

спасибо
ssctrl in shift
то что нужно

---

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

Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c