IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Хоткей, Хоткэй
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской

Репутация: -  0  +


Подскажите как в паскале сделать Хоткэй в проге!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


В каком смысле? Можно подробнее.


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской

Репутация: -  0  +


Цитата(APAL @ 16.04.2006 13:39) *

В каком смысле? Можно подробнее.


Я имею в веду чтоб в любой момент исполнения, я мог бы нажать скажим Esc и программа закрылась бы или F1 для появления справки.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






2 способа:
1) определять свою подпрограмму, реагирующую на нужные клавиши, и вызывать ее где-нибудь в основном цикле программы, если было вообще какое-то нажатие на клавишу, например, так:
Var
ToDo: Boolean;

Procedure MyReadKey;
Begin
{
Проверяем, какая клавиша нажата,
если F1 или Esc - то производим нужные действия,
например, при нажатии Esc устанавливаем ToDo в False
}
End;

begin
...
ToDo := True;
{ Основной цикл программы }
While ToDo Begin

{ Если ЧТО-ТО было нажато - проверяем, ЧТО... }
If KeyPressed Then MyReadKey;
...

End;
...
end.

2) Перехватывать прерывание клавиатуры и соответствующим образом его обрабатывать... Я где-то на форуме приводил пример, поищи, если интересно...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской

Репутация: -  0  +


Цитата(volvo @ 16.04.2006 14:59) *

Begin
{
Проверяем, какая клавиша нажата,
если F1 или Esc - то производим нужные действия,
например, при нажатии Esc устанавливаем ToDo в False
}
End;


Каким образом проверяем??
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Цитата(Morfey85 @ 16.04.2006 16:37) *

Каким образом проверяем??

http://forum.pascal.net.ru/index.php?showtopic=10334


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской

Репутация: -  0  +


Все, разобралия, всем спасибо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 24.08.2017 4:11
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"