Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ShiftState [D6]


Ola ©   (2002-09-03 08:58:00) 

Приветики мастера!!!
Из кода нужно вызвать процедуру KeyDown, проблема в том, что не понятно что передавать в параметр Shift, если должна быть нажата просто клавиша F6... заранее спасибо


ЮЮ   (2002-09-03 09:37:00) [1]

Меня тоже :-) У меня, как и у Анатолия значок по-прежнему тёмно синий, а у остальных поголубели :-)


Anatoly Podgoretsky   (2002-09-03 09:21:00) [2]

К психологу, но вообще поздравляю обоих


Ola   (2002-09-03 09:17:00) [3]

спасибо все заработало!!!!


Song   (2002-09-03 09:16:00) [4]

2Внук © (03.09.02 09:09)
Это обман зрения, у меня тоже со вчерашнего дня такое.. :-)
Сегодня к окулисту пойду..


Внук   (2002-09-03 09:09:00) [5]

Черт подери, у меня цвет значка изменился, караул ...


ЮЮ   (2002-09-03 09:08:00) [6]

А что подразумевается под "процедуру KeyDown"
Если обработчик, должно работать. Вот пример (вызова, а не работы :-) из работающего приложения:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//
end;
procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Edit1KeyDown(Edit1,Key,[]);
end;


Внук   (2002-09-03 09:07:00) [7]

Попробуйте еще раз :)
Скорее всего, дело не в третьем, а во втором параметре, который объявлен как var, то есть туда нужно передавать переменную, но никак не константу


Внук   (2002-09-03 09:07:00) [8]

Точно, я угадал :)


Ola   (2002-09-03 09:06:00) [9]

вот так FormInf.dbgInfDealsKeyDown(Self,vk_F6,[]);


MBo   (2002-09-03 09:05:00) [10]

как пробовали? код...


Ola   (2002-09-03 09:01:00) [11]

пробывали не получаеться


Внук   (2002-09-03 09:00:00) [12]

Передавайте []


Наверх

Титульная страница Поиск, карта сайта Написать письмо