TAdvSmoothTouchKeyboard help

VCL TMS VCL UI Pack
1

I am having some trouble with TAdvSmoothTouchKeyboard. I want to show the text being edited in a second control also (TLabel). I am currently using the OnKeyClick event which mostly works, except when using the Backspace key the displayed values (in edit control and my TLabel) are not in sync. I tried to use OnTextChanged, but that event is never called, it does nothing. The only other event is the on KeyDown. I'm thinking that OnTextChanged should be the right answer, but it doesn't work. Can you give me some insight to the best way to accomplish what I need?

2

If you want to do this, set AdvSmoothTouchKeyboard.UseFocusedControl = false and implement OnTextChanged as:

procedure TForm1.AdvSmoothTouchKeyBoard1TextChanged(Sender: TObject;
  var Text: string);
begin
  edit1.Text := text;
  Label1.Caption := Text;
end;