Удаление буквы или пробела в мемо по нажатию на кнопку.

[troyan32]

Как сделать имитатор нажатия на backspace?

[Stilet]

Смотря для чего. Можно послать окну сообщение, или через keydb_event.
В зависимости от ситуации выбирается метод.

[vovk]

если в своём окне, и не обязательно "имитировать нажатие backspase", а нужно просто удалить, то можно както так

var
s:string;
begin
s:=Memo1.Lines.Text;
Delete(s, Memo1.SelStart, 1);
memo1.Lines.Text:=s;
end;

удаляется символ слева от курсора

[troyan32]

vovk, ты меня понял, но твой код не работает.

[evg_m]

delete всегда удаляет вправо от указаной позиции.

Delete(s, Memo1.SelStart, 1);// удалит один символ ЗА курсором(то бишь справа).

delete(s, Memo.selStart-1, 1); //удалить один до куросра.

можно еще предложить такой вариант.

Memo.selEnd:=Memo.Selstart-1; //выделяем один символ влево от текущей позиции
Memo.selText:='';//заменяем выделенный кусок (у нас это один символ) пустой строкой.

[SERG1980]

Для автора: жаль что вы не поняли Stileta

procedure TForm1.Button1Click(Sender: TObject);
begin
 memo1.SetFocus;//необязательно
 memo1.Perform(WM_CHAR,VK_BACK,0)
end;

[vovk]

Read SelStart to determine the position of the first selected character, where 0 indicates the first character, the second with 1, and so on. If there is no selected text (SelLength=0), SelStart indicates the position of the cursor.

а строка начинается с 1

delete всегда удаляет вправо от указаной позиции.

так что у меня правильно

[troyan32]

У SERG1980 код мне больше всех подошёл. Но спасибо всем.