![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 07.03.2009
Сообщений: 209
|
![]()
Здраствуй дорогие форумчанины.
Написала программу, которая приводит окружность в действии. Мне нужно чтобы пользователь мог управлять этим движением с помощью стрелочек. Написала процеду KeyPress но она не работает. Помогите мне ее исправить)))) Исходный код ниже: Код:
Заранее вам благодарна)))) |
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 29.12.2009
Сообщений: 1,166
|
![]()
обрабатывай события нажатия клавиш в другом обработчике
TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); здесь можно регулировать чтоб обработка клавиш была только при нажатом Shift или Ctrl а то твой обработчик keypressing не получает управления в программе нигде
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть] |
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 07.03.2009
Сообщений: 209
|
![]()
RUSt88 а какие теперь буду коды клавиш? а то он мне пишит не соответствие типов
|
![]() |
![]() |
![]() |
#4 |
Участник клуба
Регистрация: 29.12.2009
Сообщений: 1,166
|
![]()
посмотри виртуальные клавиши здесь и сравнивай переменную key с нужной клавишей
http://api.farmanager.com/ru/winapi/...lkeycodes.html у мя delphi 2010 так что могу так (остальные версии не знаю) Код:
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть] |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 07.03.2009
Сообщений: 209
|
![]()
я зделала как вы сказали но все равно не работает
Код:
|
![]() |
![]() |
![]() |
#6 |
Участник клуба
Регистрация: 29.12.2009
Сообщений: 1,166
|
![]()
#72 - это аски код английского алфавита, а у тебя по ходу язык то стоит русский, потому и не работает
используй функцию получения кода клавиши, ща не помню как пишется
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть] |
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 07.03.2009
Сообщений: 209
|
![]()
нет..... у меня стоит английская расскладка и он все равно не работает.... Я даже пыталась менять расскладку и бестолку
|
![]() |
![]() |
![]() |
#8 |
Участник клуба
Регистрация: 29.12.2009
Сообщений: 1,166
|
![]()
какие клавиши нужно зажимать в проге для управления?
буквы или стрелки на клаве? если буквы, то сделай так например нужно реагировать на нажатие клавиши "W", знач запишем так if Key = VkKeyScan('w') then ShowMessage('sdsd'); если стрелки, то у них код такой if Key = VK_LEFT then ShowMessage('sdsd');
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть] |
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 07.03.2009
Сообщений: 209
|
![]()
спасибо вам большое.... вы мне очень помогли)))
а как мне сделать чтобы я мог изменять цвет окружности? |
![]() |
![]() |
![]() |
#10 |
Участник клуба
Регистрация: 29.12.2009
Сообщений: 1,166
|
![]()
пропиши функцию рисования окружности с параметром-переменной цвет
напр так Ris(dx, dy, color: TColor) когда нужно в любом месте программы изменяешь переменную на нужный цвет и всё var a: TColor; a:= clWhite; ну и т.п. Ris(20, 0, a);
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть] Последний раз редактировалось RUSt88; 06.03.2010 в 20:38. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Управление windows с помощью delphi | Hallo | Обсуждение статей | 6 | 05.09.2010 23:50 |
Управление внешними устройствами средствами Delphi | RockForr | Общие вопросы Delphi | 7 | 03.05.2009 22:04 |
Управление Excel из Delphi | chekanoff | Общие вопросы Delphi | 2 | 15.01.2008 20:31 |
Кто поможет с "пульсирующей" окружностью??? | Solny6ko YasnoE | Помощь студентам | 11 | 18.05.2007 20:27 |
Управление настройками компьютера из приложения Delphi | Saili | Общие вопросы Delphi | 2 | 05.12.2006 11:41 |