TAdvSmoothTouchKeyboard help

VCL TMS VCL UI Pack
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;