|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.01.2013, 15:45 | #1 |
Форумчанин
Регистрация: 01.06.2012
Сообщений: 139
|
Ловим кнопки.
Добрый день, помогите пожалуйста, у меня такая вот проблема :
Я пишу программу для просмотра изображений, так вот нужно сделать по стрелкам перемещение "назад" "вперёд", так вот на первой форме я отлавливаю стрелки ( те что на клавиатуре ) они вообше нивкакую нихотят. На второй форме (типа слайдшоу) там работает только одна вперёд или одна назад... Что я делаю не так? procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=Vk_Left then begin Form1.BitBtn2.Click;// по этой кнопке выполняется "назад" кнопка рабочая. end; if key=Vk_Right then begin Form1.BitBtn3.Click;// по этой кнопке выполняется "вперёд" кнопка рабочая. end;
Следствие: 99% проблем, сваливаемых на Microsoft, является следствием тупости самих программистов.
|
13.01.2013, 22:19 | #2 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,885
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Кнопки | maks5 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 08.03.2011 20:24 |
Кнопки(((( | Carlsberg | Microsoft Office Excel | 0 | 10.12.2010 00:07 |
UCOZ: Кнопки кнопки на изображении | ReDuX | HTML и CSS | 19 | 25.04.2008 02:39 |
Кнопки | )Игнат( | Компоненты Delphi | 21 | 22.01.2008 09:35 |
триггерные кнопки и кнопки переключатели в DELPHI | MARGO | Помощь студентам | 3 | 12.11.2007 17:35 |