Я пишу программу, которая работатет, как сервис. В сервисе есть поле (TEdit) в которое нужно ввести данные, НО при нажатии на клавиши в поле ничего не печатается! Причём копки "Delete", "Home", "End"  прекрасно работают (контекстное меню работает, если вставить с помощью него текст, то всё прекрасно отображается). Проблема не только с TEdit, но и с остальными стандартными компонентами ввода.
Сервис делал стандартными средствами Delphi.
Можно ли что-нибудь сделать?... 

 Можно. Семнадцатую строчку попровь   
 

Не писать сервисы с формами ввода. 

Спасиб пацаны, вы здесь все такие умные?    

Я тебе ответил максимально точно и корректно.

Коли после этого у тебя только такие вопросы возникают, то что ж тут поделаешь. 

Это как именно?
Скорее всего не принимаюся сообщения для окон.

Прочти Флейм, Флуд, САБЖ, ИМХО и т.д., Разъяснение терминов 

Какой тут код приводить? SvcMgr.pas постить что ль? 

Это выход? Не смеши...

- Я не умею плавать.
- Так не учись...

Тоже самое по-моему.
Самому не нравится в сервисе форму юзать, но по другому ещё хуже 



File->New->Other...
Потом ServiceApplication

В общем я пока понял, что не обрабатываеются сообщения WM_CHAR;
Попробывал сделать так:
Бросил TTimer на форму и в OnTimer:


Как ни странно заработало  НО, как и следовало ожидать всё кроме ввода очень сильно тормозит...

Появилась идея не перехватывать всё в подрят, а только нужное 
То есть procedure HKlav(var msg: TMessage); message WM_CHAR;

Но на WM_CHAR он не реагирует, может какое ещё сообщение?  

Это сообщение отредактировал(а) Darbort - 7.5.2006, 23:31

Именно выход.
Сервис не предназначен для программирования с VCL. И вообще для оработы с окнами.

А если ты хочешь все-таки писать интерфейс с пользователем именно в сервисе - забудь про VCL. Да и это будет "через задний проход".
 

Это делается в while цикле. Пиши на WinAPI 

Согласен, это просто извращение писать сервис с VCL...
В общем или WinAPI или на два приложения разделять (через мессаги им общатся, кста никто не знает, как через пайпы параметры передавать? Возможно ли это? Проверить на вторую копию легко, а с передачей что-то не выходит), то есть два раза "через задний проход" 

Ну, если я сделаю так, то прога будет бесконечно долго в подвешенном состоянии  , так как TApplication в SvcMgr.pas занимается тем же самым... Если на WinAPI, то ясный пень while...
Всё же ещё помучась... прям загадка, даже OnKeyDown для TEdit сробатывает, а дальше ни в какую.
Как всегда    

Можно это обойти, написав:

   

Нет, ну вы меня окончательно прикалываете 
У TApplication в  SvcMgr.pas НЕТ ProcessMessages!
Если использовать TApplication из Forms, то процедура ProcessMessages работает не корректно, если не сказать вообще не работает. То есть буковки печатаются, а всё остальное виснет включая рабочий стол...  

Писать сервис в VCL - не извращение.
Извращение - писать сервис с пользовательским интерфейсом.

Я ж написал - если тебе так нужен интерфейс с пользователем в сервисе - реализуй этот интерфейс в окнах WinAPI32.

Тебе нужна глючная программа? - Тогда используй VCL для этого.

Добавлено @ 12:19 
А давать советы для написания заведомо глючной программы - уволь. 

Увольняю   
Спасиб всем. 

Я писал - у меня всё было нормально, ничё не глючило.