Discussion :

[Invité]

Bonjour,

Un peu marre des styles et puis surtout bloqué par une question idiote sur les styles par défaut (autrement dit leur absence).

En attendant, je porte en FMX un logiciel de "test de rentrée" développé en Lazarus (il y a 2ans) puis en Qt (très récemment).
Dans ma fenêtre d'identification, mes élèves précisent leurs nom et prénom dans des TEdits et choisissent leur classe dans un TComboBox.

Dans l'évènement TEdit en FMX Windows, j'ai essayé de mettre simplement les caractères saisis en majuscules. Je n'utilise pas la fonction FilterChar. Je veux transformer les minuscules saisies en majuscules.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.edPRENOMKeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
 if Key = vkReturn then begin
    Key := vkTab;
    KeyDown(Key, KeyChar, Shift);
    cbCLASSE.DropDown;
 end else
   KeyChar := UpCase(KeyChar);
end;

Je fais au plus simple. Cela Fonctionne. Si je saisis "Martin", j'obtiens bien "MARTIN". Mais malheureusement, si je saisis "érable", j'obtiens "éRABLE"... Autrement dit Delphi ne sait pas convertir le é en É. Comment lui-apprend-on ?

Question subsidiaire : pour l'instant je n'arrive pas à piloter ma tablette Galaxy avec Delphi... Mais il est vrai que 2 autres plate-formes de développement la pilotent... Il y a certainement des conflits. La question est... L'événement onKeyDown a-t-il un sens (ie est-il exploité) si je porte cette application sous Androïd avec Delphi ? J'en doute fort mais si tel était le cas, cela ouvrirait de très grands horizons. Je vais ramener un vieux phone Galaxy S inconnu du PC de développement en espérant qu'il soit compatible avec Delphi.

Merci.

[Invité]

OK.

Il faut forcer l'ANSI :

Code :

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

KeyChar := AnsiUpperCase(KeyChar)[1];

émile devient bien "ÉMILE". Enorme avantage avec Delphi. Je n'ai pas besoin de replacer le "curseur texte". C'est automatique.

PS : Merci Toulourou pour la correction orthographique. Je n'ai pas eu le temps de relire...