Програмное нажатие клавиш в memo

[Proger10]

Как это можно устроить, кроме как брать текст до курсора, вставлять символ и добавлять текст после курсора?

[Stilet]

Я лично ниче не понял.

[SERG1980]

на счёт программной вставки текста в мемо

memo1.Perform(WM_PASTE,0,0)//текст из буфера обмена
memo1.Perform(WM_REPLACESEL,1,Pchar(edit1.text))//текст из едита

[Proger10]

Да, вопрос я не правельно написал. Я делаю программу: на одном компьютере жмем клавиши, а на другом видим текст. Доставку всех символов и т.п. я сделал, ослалось ставить символы в нужное место. Как это сделать?

[Terran]

А символы должны у вас писаться в любом окне где находится фокус или в каком то определённом?

[Proger10]

Именно в Memo1
PS keybd_event не подойдет

[Stilet]

на одном компьютере жмем клавиши

Удаленно? Или типа чата что-то?

[Terran]

Думаю так подойдёт:

Var
H,Sh: Integer;
Begin
H:=FindWindow(Nil,'Form1');
Sh:=FindWindowEx(H,0,'TMemo',Nil);
SendMessage(Sh,WM_SETTEXT,0,LParam(PChar('Ваш текст')));
End;

[Proger10]

Эта процедура заменяет текст. А мне надо вставить его в нужное место.

[uberchel]

Может так, насколько я понял:

Memo1.SelText:= 'ВашТЕКСТ'; // будет вставлять по очерёдна

или надо, чтобы при нажатии на клавиши текст появлялся у вас в Memo1 ???