Текущий архив: 2003.01.30;
Скачать: CL | DM;
Вниз
Простая тема! Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.008 c
