backspace

[Родион]

Подскажите как кодом эмулировать нажатие на backspace для TEdit

Заранее благодарен

[Gorychev]

edit1.Perform(WM_CHAR, Ord(' '),0);

или

SendMessage(Edit1.Handle, WM_CHAR, Ord(' '), 0);

[Родион]

Сообщение от Gorychev

edit1.Perform(WM_CHAR, Ord(' '),0);

или

SendMessage(Edit1.Handle, WM_CHAR, Ord(' '), 0);

Это добавить пробел а мне стереть надо

[Roof]

edit1.Perform(WM_CHAR, Ord(''),0);

- между апострафами пробел убери

[Stilet]

Вообще-то ее код в константе VK_BACK.

[Родион]

Сообщение от Roof

edit1.Perform(WM_CHAR, Ord(''),0);

- между апострафами пробел убери

Пробовал

Не компилит пишет инкомпатибл тайпс ((

[russian-stalker]

Вот, работает на событии мемоклик.(Жду плюсик)

procedure TForm1.Memo1Click(Sender: TObject);
begin
keybd_event(8,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
keybd_event(8,0,KEYEVENTF_EXTENDEDKEY,0);
keybd_event(8,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

From Stilet: Не надо посты дублировать. Имеющий глаза да видит.

[SERG1980]

edit1.Perform(WM_CHAR, Ord(#8),0);

[Stilet]

Вот, работает на событии мемоклик

Это будет работать если Memo активное.

[russian-stalker]

Ну можно же прикрутить на всё