Discussion :

[SergioMaster]

Bonjour,

Avant de me lancer sur un gros chantier, je fais appel à la communauté pour savoir s'il n'existerait pas quelque chose de déjà prêt. L'objectif, remplacer le clavier virtuel windows qui est une vraie calamité !

Petit rappel : je parle bien de FMX

Pour ce qui est de la calamité, en voici un exemple imagé



Je vous passe les moyens que j'ai employés pour arriver à obtenir l'image. Je signale juste que j'ai déplacé la fenêtre clavier pour faire apparaître la partie basse de l'écran (les boutons)
Ce que je reproche :

• Le clavier n'est pas toujours rapide à apparaitre
• Le clavier, on doit le déplacer s'il cache la zone que l'on veut éditer car, en fait, il s'agit d'un programme indépendant qui est appelé (j'ai même eu le cas où le clavier était sous-jasent à la fenêtre).
• On ne peut pas avoir que le clavier numérique, selon le besoin.

Bref, je voudrais quelque chose de plus "convivial", un peu comme je l'ai fait (à l'arrache) ici



Mes recherches m'ont conduit vers KbmFMX de components4developers sauf que, avant d'utiliser (et payer) il est impossible d'en faire une évaluation. Tout ce que je peux pointer est l'achat ou quelques billets du blog comme celui-ci .

Il y a aussi le composant de TMS Software TadvTouchKeyboard, mais il s'agit de VCL pas de FMX, je suis donc un peu sceptique sur la transposition vers FMX.

Je suis conscient que je n'ai fait qu'effleurer le sujet (pas d'utilisation des interfaces IVirtualKeyboardControl, IFMXVirtualKeyboardService, IFMXTextService ni les évènements de forme OnVirtualKeyboardShown, OnVirtualKeyboardHidden) , mais je suis tout ouïe, si quelqu'un a trouvé une solution à ce clavier virtuel windows.

Pour info le contexte, une tablette ou du moins avec PC avec écran tactile genre Microsoft Surface.

Vous vous demandez peut-être comment j'ai pu obtenir l'affichage du clavier avec mon pc "normal", dans le OnCreate de la forme, j'ai indiqué VKAutoShowMode := TVKAutoShowMode.Always;

[ShaiLeTroll]

As-tu tenté de créer ta propre fenêtre, sans bordure, avec un équivalent FMX de WS_EX_NOACTIVATE dans le CreateParams (ou l'équivalent FMX) ou alors créer la fenêtre dans un Panel qui serait placé sous le Edit

Si c'est FMX mais uniquement sur Windows, tu peux d'ailleurs tricher avec les API tout de même, si c'est multi-OS à terme, faudra l'implémenter pour chacun.


Ton petit clavier c'est via IFMXVirtualKeyboardService.ShowVirtualKeyboard(TEdit) + TEdit.KeyboardType := NumberPad ?
Voir TVirtualKeyboardType

[SergioMaster]

Ton petit clavier c'est via IFMXVirtualKeyboardService.ShowVirtualKeyboard(TEdit) + TEdit.KeyboardType := NumberPad ?

Non, c'est un GridPanelLayout qui contient de boutons, comme je l'ai indiqué, c'était fait à l'arrache.

J'ai testé un truc pour envoyer les caractères (encore au point)

sur cet essai du bouton "0"

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
var
  Inputs: array of TInput;
begin
{à changer}
  Edit1.SetFocus;
  Edit1.SelStart:=Length(Edit1.Text);
 
  SetLength(Inputs, 2); 
 
//  Inputs[0].iType := INPUT_KEYBOARD;
//  Inputs[0].ki.wvk := VK_SHIFT;
//  Inputs[0].ki.dwFlags := 0;
 
  Inputs[0].itype := INPUT_KEYBOARD;
  Inputs[0].ki.wvk := VK_NUMPAD0; // 
  Inputs[0].ki.dwFlags := 0;            // 0 : KEYEVENTF_KEYDOWN ?
 
  Inputs[1].iType := INPUT_KEYBOARD;
  Inputs[1].ki.wVk := VK_NUMPAD0;
  Inputs[1].ki.dwFlags := KEYEVENTF_KEYUP;
 
//  Inputs[3].iType := INPUT_KEYBOARD;
//  Inputs[3].ki.wVk := VK_SHIFT;
//  Inputs[3].ki.dwFlags := KEYEVENTF_KEYUP;
 
  SendInput(2, Inputs[0], SizeOf(TInput));

[SergioMaster]

Voici ma première tentative d'un clavier

Pas tout à fait identique à celui de Microsoft, je ne sais pas trop que mettre à droite de la barre d'espace. Ah, si en relisant mon texte, j'ai vu que les signes < > manquaient.

J'ai tenté de faire un mix. Je rappelle que c'est pour des écrans tactiles, la répétition de certaines touches (par exemple Shift) me semblait inutile.

Je ferais bien quelque chose de ce genre

mais j'ai un souci pour les textes, comment sans aller ajouter de la complexité mettre un texte (celui de la propriété) incluant un saut de ligne.

P.S. J'ai bien sûr songé à la solution FMX Style, mais côté complexité, ce serait un gros travail plus composant, sympa à mettre dans mon futur bouquin cependant

N.B. J'ai aussi pensé aux émojis, mais sans plus .

Autre souci, différent, quand je suis dans la zone de saisie et que j'affiche le clavier, le curseur disparait si quelqu'un à une idée pour le garder ?

[Andnotor]

Un clavier c'est du bas niveau, ça me paraît difficile de faire ça en multi-plateformes.

quand je suis dans la zone de saisie et que j'affiche le clavier, le curseur disparait si quelqu'un à une idée pour le garder ?

C'est un exemple de la dépendance à la plateforme. Comme mentionné par ShaiLeTroll, il faut WS_EX_NOACTIVATE sous Windows pour que le clavier ne prenne jamais la focalisation.
Un autre exemple avec UIAccess (manifeste) pour pouvoir piloter des processus avec élévation de privilèges. Et évidemment SendInput.

Ca dépendra aussi jusqu'où tu veux aller mais AZERTY, oui pour certains pays mais si tu veux internationaliser tous cela et à moins de créer N dispositions, ça sera en travaillant sur le ScanCode à coup de MapVirtualKeyEx, ToUnicodeEx ; bref platform-dependant.

Coder ça en FMX, j'ai un sérieux doute


A noter que ton premier screenshot est l'ancien clavier Windows (osk.exe). Depuis Windows 8, c'est le tablet input panel (tabtip.exe).

[SergioMaster]

Un clavier c'est du bas niveau, ça me paraît difficile de faire ça en multi-plateformes.

ce n'est pas tant le multiplateforme que je cherche (quoique je pense à linux) , mais plutôt une alternative à l'utilisation du clavier virtuel microsoft.

Comme mentionné par ShaiLeTroll, il faut WS_EX_NOACTIVATE sous Windows pour que le clavier ne prenne jamais la focalisation.

plus simple, utiliser la variable VKAutoShowMode en la mettant à TVKAutoShowMode.Never.

Coder ça en FMX, j'ai un sérieux doute

Doute, il n'empêche que c'est fonctionnel pour ce qui est du pavé numérique. J'ai résolu mon problème de curseur tout simplement en redonnant le focus au contrôle appelant.

A noter que ton premier screenshot est l'ancien clavier Windows (osk.exe). Depuis Windows 8, c'est le tablet input panel (tabtip.exe).

ma capture d'écran a été faite avec un pc portable sous W10, pas une tablette ce qui explique peut-être l'affichage de OSK et non de tabtip