Sveiki,

Paprastutė klavišo paspaudimo procedūra. Reikia, kad paspaudus "a", ištrintų 
prieš tai esantį simbolį.
Tikėjausi, kad taip nutrins, tačiau nutrina būtent simbolį "a".

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key='a' then
   begin
     keybd_event(VK_BACK, 0, 0, 0);
     keybd_event(VK_BACK, 0, KEYEVENTF_KEYUP, 0);
   end;
end;

Kaip padaryt, kad nutrintų prieš kursorių esantį simbolį? "a" irgi turi 
pasirodyt. 


__________ Information from ESET NOD32 Antivirus, version of virus signature database 4040 (20090428) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com