Показать сообщение отдельно
  #2  
Старый 26.04.2009, 04:02
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от gadmaker
Помогите разобраться: создаю окно зерез консольное приложение, по средставм массива постоянно обновляю его через функцию application.ProcessMessages()
Через функцию GetKeyboardState(State) определяю состояние нажатия кнопок мышки или клавиатуры незнаю как определить событие нажатия/отжатия кнопок мышки или клавиатуры.
ну например сделай массив тех клавиш которые тебе нужны и проверяй их, если в массиве с кнопкой которая
Код:
GetAsyncState(<KEY>)<>0 
то эта кнопка нажалась, при этом же записывай в массив что она нажата (True), потом при следущем обновлении проверяй
Код:
GetAsyncState(<KEY>)<>0 
значит кнопка ещё нажата и события "нажалась" не производить, если
Код:
GetAsyncState(<KEY>)=0 
то событие "отжалась" и записывать False в массив с этой кнопкой
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием