[GraffUnost]

Люди, подскажите как быть..я создал клавиатуру в проге кнопочную для ввода транскрпции..Но мне надо создать кнопку BackSpace, которая бы стирала в DBEDit..Как сделать?

[mav_c]

Сообщение от 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;