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