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
)
Много из-за чего может быть. Давай исходник - разберёмся.