Четверг, 17.08.2017, 20:30 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024 
delfcode » Delphi » Вопросы по Delphi » Нажатие клавиши
Нажатие клавиши
MyipsДата: Вторник, 18.10.2011, 17:44 | Сообщение # 1
Частый гость
Зарегистрирован: 13.05.2011
Группа: Пользователи
Сообщений: 26
Статус: Offline
Привет, мне же нужно определить нажата ли любая из клавиш. В паскале насколько я помню была функция keypressed. Можно было проверить так:
Код:

if keypressed then ...

А как на Delphi?
 
dolphinДата: Вторник, 18.10.2011, 18:07 | Сообщение # 2
Администратор
Сообщений: 902
Статус: Offline
Нужно определить нажатие клавиши в твоей программе или в системе?

В приложении

Code
procedure TForm1.FormCreate(Sender: TObject);
begin
   Self.KeyPreview := true;
   i := 0;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
   Inc(i);
   Caption := IntToStr(i);
end;


в системе что то вроде этого

Code
program Project1;

uses
   windows;

var
   i1,i2: integer;

begin
   i1:= GetKeyState(1);
   repeat
     i2:=GetKeyState(1);
   until
     i1<>i2;
end.


Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
MyipsДата: Вторник, 18.10.2011, 20:05 | Сообщение # 3
Частый гость
Зарегистрирован: 13.05.2011
Группа: Пользователи
Сообщений: 26
Статус: Offline
Нужно в системе. Можете объяснить подробнее?
 
dolphinДата: Вторник, 18.10.2011, 22:38 | Сообщение # 4
Администратор
Сообщений: 902
Статус: Offline
Чем подробнее вопрос тем подробнее ответ

Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
delfcode » Delphi » Вопросы по Delphi » Нажатие клавиши
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz