Discussion :

[Anselme45]

Bonjour à tous,

J'essaie avec Delphi Rio de travailler avec le clavier virtuel pour obtenir ce qui semblerait être un comportement basique:

• J'aimerai pouvoir empêcher l'ouverture du clavier virtuel quand l'utilisateur clique sur un TEdit et décider via programmation de son ouverture ou de sa fermeture
• J'aimerai détecter quand l'utilisateur presse sur le clavier virtuel la touche Enter

1.
Pour le 1er point, il y a des dizaines d'exemples sur le web, aucun ne fonctionne (il y a certains qui mentionnent que l'exemple fonctionnait avec de vieilles versions de Delphi (à l'époque des XE) mais que cela ne fonctionne plus avec les Berlin, Tokyo and others... Tests effectués, ces codes ne fonctionnent pas!


2.
Pour le 2ème point, vous allez me dire...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 If Key in [vkRETURN, vkACCEPT] Then
 begin
...
 end;

Dans un event onKeyUp ou onKeyDown

Ben, non! Votre beau code amoureusement compilé ne fera rien!


Est-ce que quelqu'un sur ce forum a réussi à "dompter" ce clavier virtuel???

Merci pour votre avis

[SergioMaster]

Bonjour,

je n'y connais pas grand chose sur le clavier virtuel aussi ai-je décidé de faire un essai et ce sans même chercher sur le net, j'ai tout de suite pensé à l'interface.

Avec Sidney voici comment j'ai fait
comme écran un TEdit et un bouton


désolé, pas très visible le bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
unit UnitVkeyboard;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, 
  FMX.VirtualKeyboard,  FMX.Platform,
  FMX.Controls.Presentation,
  FMX.Edit, FMX.StdCtrls;

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
      Shift: TShiftState);
  private
    { Déclarations privées }
    IKeyboard : IFMXVirtualKeyboardService;
  public
    { Déclarations publiques }
  end;

var
  Form3: TForm3;

implementation

{$R *.fmx}

procedure TForm3.Button1Click(Sender: TObject);
begin
if Assigned(IKeyBoard) then IKeyboard.ShowVirtualKeyboard(Edit1);
end;

procedure TForm3.Edit1KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
if (Key=vkReturn) AND Assigned(IKeyBoard) then IKeyboard.HideVirtualKeyboard;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService,IKeyBoard);
end;

end.

Constations :
si je sélectionne (j'allais écrire click mais ce serait plutôt touche) le TEdit pas de clavier virtuel
si je touche le bouton le clavier virtuel se montre (en fonction de celui défini dans la propriété Keyboardtype


N.B. j'ai utilisé onKeyUp pour géré la touche "Enter" du clavier virtuel

ce qui répond je pense aux deux questions

inconvénient il faut ensuite le gérer pour tout autre zone de saisie.

[Paul TOTH]

1.
Pour le 1er point, il y a des dizaines d'exemples sur le web, aucun ne fonctionne (il y a certains qui mentionnent que l'exemple fonctionnait avec de vieilles versions de Delphi (à l'époque des XE) mais que cela ne fonctionne plus avec les Berlin, Tokyo and others... Tests effectués, ces codes ne fonctionnent pas!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
FMX.Types.VKAutoShowMode := TVKAutoShowMode.Never;

bug Tokyo connu et corrigé dans Rio
https://quality.embarcadero.com/browse/RSP-17768

[SergioMaster]

Bonjour,

@Paul, effectivement c'est plus simple que mon accession à l'interface !

Du coup j'en ai également profité pour voir ce qu'il en était de l'histoire du clavier qui recouvre les TEdit.
Une réponse se trouvait dans des exemples fournis
(samples\Object Pascal\Multi-Device Samples\User Interface\PlatformScrollBox
samples\Object Pascal\Multi-Device Samples\User Interface\KeyboardToolbar )

Le premier m'a laissé un goût étrange : le clavier n'est pas "conditionné" par la propriété du composant KeyboardType (testé avec Rio, mon déploiement avec Sidney étant encore mal configuré)
Le second est plus sur l'ajout d'un bouton, autre demande que j'ai vu passé sur le forum

[Anselme45]

@Paul Toth

Je n'avais pas intégré à mon code la ligne magique "FMX.Types.VKAutoShowMode := TVKAutoShowMode.Never;". La valeur par défaut étant "always", le code que j'utilisais qui était en gros le même que ta proposition ne fonctionnait pas.


Par contre utiliser ce "TVKAutoShowMode" me pose problème. Quand tu lis la description qui en est faite dans la doc Embarcadero...

Description

Est utilisée principalement à des fins de débogage.

Les valeurs possibles définies dans le type TVKAutoShowMode sont : DefinedBySystem, Never, and Always.

La variable VKAutoShowMode variable est vérifiée par l'implémentation Windows de la méthode GetVirtualKeyBoardState. Si la valeur de VKAutoShowMode est Always, GetVirtualKeyboardState renvoie Always. Cela impose que le clavier virtuel (d'écran) apparaisse automatiquement pour les applications Windows, même si un périphérique dispose d'un clavier physique. Un tel comportement peut s'avérer utile lors du test du comportement d'une application mobile déboguée sous la plate-forme Windows.

... Cela ne donne pas l'impression qu'il faille l'utiliser dans un produit fini pour Android et pas sûr que l'approche soit compatible iOS.

[Anselme45]

Une réponse se trouvait dans des exemples fournis
(samples\Object Pascal\Multi-Device Samples\User Interface\PlatformScrollBox
samples\Object Pascal\Multi-Device Samples\User Interface\KeyboardToolbar )

Franchement, j'ai testé la solution "TscollBar" auprès d'un échantillon d'utilisateurs... Il faut reconnaître que cela n'a pas été très bien accueilli... Ce type d'approche déconcerte la plupart des utilisateurs.

[Paul TOTH]

Franchement, j'ai testé la solution "TscollBar" auprès d'un échantillon d'utilisateurs... Il faut reconnaître que cela n'a pas été très bien accueilli... Ce type d'approche déconcerte la plupart des utilisateurs.

ben s'ils veulent travailler sur mobile comme sur PC, il va falloir utiliser un clavier bluetooth

non mais franchement, c'est pas le comportement habituel de toute appli mobile ? SMS, Whastapp, mail ...