|
|
#1
|
|||
|
|||
Клавиатура
Люди, подскажите как быть..я создал клавиатуру в проге кнопочную для ввода транскрпции..Но мне надо создать кнопку BackSpace, которая бы стирала в DBEDit..Как сделать?
|
#2
|
||||
|
||||
Цитата:
procedure TForm1.backSpaceClick(Sender: TObject); var s : string; begin s := Edit1.Text; Delete(s, Length(Edit1.Text), 1); Edit1.Text := s; end; --------------------------------------------- Программирование - не профессия, а стиль жизни |