Форум: "KOL";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

VCL: (ssCtrl in shift); KOL: ?   Найти похожие ветки 

← →
Revolter   (2003-09-17 15:05) [0]

в VCL обработчик события нажатие клавиши Ctrl: (ssCtrl in shift), а как в KOL?

---

← →
Gandalf ©   (2003-09-20 10:31) [1]

Можно так:

procedure TForm1.ListBox1KeyDown(Sender: PControl; var Key: Integer;
 Shift: Cardinal);
begin
 if (Shift and 4)=4 then
 begin
   ListBox1.Items[0]:="Shift +";
 end
 else
 begin
   ListBox1.Items[0]:="Shift -";
 end;

 if (Shift and 8)=8 then
 begin
   ListBox1.Items[1]:="Ctrl +";
 end
 else
 begin
   ListBox1.Items[1]:="Ctrl -";
 end;

 if (Shift and 32)=32 then
 begin
   ListBox1.Items[2]:="Alt +";
 end
 else
 begin
   ListBox1.Items[2]:="Alt -";
 end;

end;

---

← →
Revolter   (2003-09-20 18:46) [2]

как сложно, однако..

спасибо

---

← →
Gandalf ©   (2003-09-20 20:14) [3]

На самом деле можешь скажем сделать так:

TShiftStates=(ssRes1,ssRes2,ssShift,ssCtrl,ssRes3,ssAlt);
TShiftState=set of TShiftStates;

Ну и привидя тип TShiftState(Shift) можешь работать как с множеством.

(ssCtrl in TShiftState(shift))

---

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

Форум: "KOL";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх

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