Войти на сайт ( )
[Вход] [Регистрация]
Компьютеры » Программирование » Delphi FAQ [LauNCheR]
[Обновить]
[ Ответить ]
[Добавить в закладки]
Страница: 1, 2, 3 ... 6, 7, 8, 9, 10, 11
Gaist-Endruy ( off )
( 14:05 26-11-2008 )
begin
if Key = VK_F1 then Button.Click; // Кнопка 1
if Key = VK_F2 then Button.Click; // Кнопка 2
if Key = VK_F3 then Button.Click; // Кнопка 3
if Key = VK_F4 then Button.Click; // Кнопка 4
if Key = VK_F5 then Button.Click; // Кнопка 5
if Key = VK_ESCAPE then Application.Terminate; // Закрыть программу.
if Key = VK_Space then Panel1.Left:=3; // Панель 1
if Key = VK_Space then Panel2.Left:=3; // Панель 2
end;

Gaist-Endruy ( off )
( 14:06 26-11-2008 )
Программа прекрасно компилируется, ни каких ошибок. И все работает. Но, как только я прописываю в код, работу с ini файлами, или ставлю на форму компонент TWebBrowser Эти клавиши так сказать быстрого реагирования не работают.

Gaist-Endruy ( off )
( 14:08 26-11-2008 )
В onCreate ничего такого не пишу. С ini файлами, работаю стандартным образом:

Gaist-Endruy ( off )
( 14:08 26-11-2008 )
OnCreate:
OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));
SaveDialog1.InitialDir := OpenDialog1.InitialDir;
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Parmts.ini');

Gaist-Endruy ( off )
( 14:10 26-11-2008 )
OnCreate
// Обработчик:
F.Destroy;
\\ В конце кода onCreate его ставлю.

Gaist-Endruy ( off )
( 14:10 26-11-2008 )
В событии onDestoroy ничего такого:
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Parmts.ini');

Gaist-Endruy ( off )
( 14:13 26-11-2008 )
Пробывал делать так:
Добавил
var
Key: Word;
Shift: TShiftState;
В обработчик Create и прописал код кнопок быстрого реагирования туда. Тоже самая фигня. Не реагируют. а должны. Также делал и с Activate тоже самое.

Gaist-Endruy ( off )
( 14:13 26-11-2008 )
Пробывал перекинуть все на onShow так тоже никакого результата.

Gaist-Endruy ( off )
( 14:14 26-11-2008 )
Что за фигня такая не чистая и как с этим боротся? М?

LauNCheR ( off )
( 18:29 26-11-2008 )
Много из-за чего может быть. Давай исходник - разберёмся.

Далее »
« Назад
Страница: 1, 2, 3 ... 6, 7, 8, 9, 10, 11
[ Ответить ]
[Обновить]
[Добавить в закладки]
Компьютеры » Программирование » Delphi FAQ [LauNCheR]
На главную
© m.sasisa.cc