| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Простая тема!
Le! © (2003-01-22 08:05:00)Народ как узнать нажатали клавиша после нажатия какой нибудь другой?
mrcat (2003-01-22 13:56:00) [1]Le! (22.01.03 08:05)
Народ как узнать нажатали клавиша после нажатия какой нибудь другой?
отслеживайте состояние TShiftState
Севостьянов Игорь (2003-01-22 13:54:00) [2]Ага только это не подойдет для всяких там Alt Ctrl Del Shift
Спрашивающий (2003-01-22 09:03:00) [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.
Le! (2003-01-22 08:35:00) [4]Нет. Я нажимаю одну, держу ее и в это время нажимаю другую. Вот как узнать нажата ли ещё первая?
diks (2003-01-22 08:31:00) [5]Тоесть? Это как нажимаешь одну а нажимается другая?
| |
