Rücktaste in cursor links umwandeln

[Cashew]

Hi,

im OnKeyPress Event könnte das ganze wie folgt aussehen:

Delphi-Quellcode:

procedure TMyForm.MyEditKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #8) then begin
    Key := #0;
    if (MyEdit.SelStart > 0) then
      MyEdit.SelStart := MyEdit.SelStart-1;
  end;
end;