|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Боремся со смайликами
Народ, до завтра надо написать простенькую прогу, которая не будет давать ставить смайлики, типа этих : =), )) ну и так далее. Надо сделать вот что: Программа не должна давать поставить символы ) и = . Т.е надо замаскировать прерывания этих клавиш, чтобы ни в одной программе они не печатались! а лучше будет, если заместо этих символов будут ставится ! (восклицательный знак) ! Вопрос необычный, если можно, дайте кусочек кода, я новичок (((
|
#2
|
||||
|
||||
Код:
onKeyPress begin case Key of #61, #41: Key := #33; //Если = или ) тогда ! end; end; В начале был Бит, потом Байт и только потом появилось Слово... |
#3
|
||||
|
||||
NIch
так у тебя работает только на форме. Ему нужно чтобы нажатие перехватывалось во всех программах. |
#4
|
|||
|
|||
ЗА код спасибо, действительно, нужно делать перехват во всех программах !
|
#5
|
||||
|
||||
Цитата:
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#6
|
||||
|
||||
Слушайте, а зачем это нужно?
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#7
|
||||
|
||||
Вот держи класный компонент для перехвата нажатий клавиш во всех программах
http://depositfiles.com/files/fi59jowbf Не твори зла, и жизнь повернется к тебе передом |
#8
|
|||
|
|||
Всем спасибо, за то что проявили интерес к теме !!!
|
#9
|
|||
|
|||
а как работать с етим компонентом ??? У него всего 2 события. Куда что писать ??? Если не трудно, можно справку к нему ??
|