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

Вниз

Простая тема!   Найти похожие ветки 

← →
Le!   (2003-01-22 08:05) [0]

Народ как узнать нажатали клавиша после нажатия какой нибудь другой?

---

← →
diks   (2003-01-22 08:31) [1]

Тоесть? Это как нажимаешь одну а нажимается другая?

---

← →
Le!   (2003-01-22 08:35) [2]

Нет. Я нажимаю одну, держу ее и в это время нажимаю другую. Вот как узнать нажата ли ещё первая?

---

← →
Спрашивающий   (2003-01-22 09:03) [3]

Топорно но работает
var
Form1: TForm1;
Nagata:Boolean;
implementation

{$R *.DFM}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key=vk_F1 Then Nagata:=True;
If (Key=vk_F2) and (Nagata=True) Then Form1.Caption:="F1 еще нажата" Else Form1.Caption:="F1 не нажата";
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key=vk_F1 Then Nagata:=False;
end;

end.

---

← →
Севостьянов Игорь   (2003-01-22 13:54) [4]

Ага только это не подойдет для всяких там Alt Ctrl Del Shift

---

← →
mrcat   (2003-01-22 13:56) [5]

Le! (22.01.03 08:05)
Народ как узнать нажатали клавиша после нажатия какой нибудь другой?

отслеживайте состояние TShiftState

---

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

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

Наверх

Память: 0.45 MB
Время: 0.01 c