Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> очередность нажатия клавиш 
V
    Опции темы
Novichek27
Дата 14.3.2013, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 24.4.2010

Репутация: нет
Всего: 1
Всем привет!

Программа должна показать какая кнопка нажата первой, какая второй и т. д.. Всего 5 кнопок.

Набросал это:

Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getasynckeystate($70)<>0 then
BitBtn1.Caption:='Вы нажали F1';
if getasynckeystate($71)<>0 then
BitBtn2.Caption:='Вы нажали F2';
if getasynckeystate($72)<>0 then
BitBtn3.Caption:='Вы нажали F3';
if getasynckeystate($73)<>0 then
BitBtn4.Caption:='Вы нажали F4';
if getasynckeystate($74)<>0 then
BitBtn5.Caption:='Вы нажали F5';
end;


Нужно пронумеровать BitBtn-ы после нажатия клавиш по факту.

Заранее благодарен.
PM   Вверх
northener
Дата 15.3.2013, 00:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(Novichek27 @  14.3.2013,  21:04 Найти цитируемый пост)
Всем привет!

Программа должна показать какая кнопка нажата первой, какая второй и т. д.. Всего 5 кнопок.

Какое учебное заведение? Какая учебная задача (Подробно. Желательно строгое цитирование без собственных умозаключений)?



--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Novichek27
Дата 15.3.2013, 19:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 24.4.2010

Репутация: нет
Всего: 1
northener, прошу не отвечать вас на мой вопрос. 


В моей теме нет того что вам нужно, т.е.

Цитата

Какое учебное заведение? Какая учебная задача (Подробно. Желательно строгое цитирование без собственных умозаключений)?
PM   Вверх
northener
Дата 16.3.2013, 01:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(Novichek27 @  15.3.2013,  19:57 Найти цитируемый пост)
northener, прошу не отвечать вас на мой вопрос. 

OK. Не буду дальше принимать участие в вашем топике.
Удачи! Правда неизвестно в чём smile

Это сообщение отредактировал(а) northener - 16.3.2013, 02:09


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Novichek27
Дата 17.3.2013, 00:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 24.4.2010

Репутация: нет
Всего: 1
На форме есть пять кнопок, каждая кнопка - участник игры. Например: нажаты 5 клавиш с клавиатуры почти одновременно, нужно показать на 5-ти кнопках формы их очередность, т. е. пронумеровать каждого участника после нажатия. Кто был первым, вторым и т. д.
PM   Вверх
Чучмек
Дата 17.3.2013, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41
Для формы ставишь KeyPreview=true
и делаешь обработчик OnKeyDown

Цитата(Novichek27 @  17.3.2013,  00:08 Найти цитируемый пост)
почти одновременно
 только ничего у тебя не получится.
Порядок всегда будет один и тот же.  почти одновременно== одновременно



--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Novichek27
Дата 17.3.2013, 17:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 24.4.2010

Репутация: нет
Всего: 1
Вы ничего не поняли по моему.

Но все удалось.

Код

begin
    if btn.Tag = 0 then
    begin
      Inc(lstIndex);
      btn.Caption:=IntToStr(lstIndex) + ' ' + s;
      btn.Tag := 1;
    end;
PM   Вверх
northener
Дата 18.3.2013, 00:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(Novichek27 @  17.3.2013,  17:17 Найти цитируемый пост)
Вы ничего не поняли по моему.

Эт точно! 
Ни вопрос не поняли, ни решение его. smile


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
oleg2s
Дата 18.3.2013, 06:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 12.5.2012

Репутация: 1
Всего: 1
Код
s
procedure TForm1.FormKeyDown(Sender: TObject; var  Key: Word; Shift: TShiftState);
begin
   case Key of
        112: ShowMessage('Вы нажали F1');
        113: ShowMessage('Вы нажали F2');
        114: ShowMessage('Вы нажали F3');
        115: ShowMessage('Вы нажали F4');
        116: ShowMessage('Вы нажали F5');
   end;
end;
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0897 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.