4/5 (11 avis)
Vue 56 342 fois - Téléchargée 3 820 fois
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; procedure Edit1Exit(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Edit1Exit(Sender: TObject); begin if (sender is TEdit) then case (sender as tedit).Tag of 2: begin LoadKeyboardLayout('0000040c', KLF_ACTIVATE); Application.BiDiKeyboard := '0000040c'; end; 1,3: begin LoadKeyboardLayout('00000401', KLF_ACTIVATE); Application.BiDiKeyboard := '00000401'; end; end; end; end.
23 juil. 2007 à 18:48
21 juil. 2007 à 18:14
mais je l'ai essai et aucun changemment c'est à dire j'arrive toujours pas à ecrire sous delphi en Arabe
4 mars 2006 à 11:49
je veux le tester
21 janv. 2006 à 21:54
http://www.phidels.com/php/forum/forum.php3?forumtable=posts&mode=showpost&postid=89026
a l'avantage d'utiliser "LoadKeyboardLayout" et "SystemParametersInfo"
on peut certainement l'améliorer encore...
20 janv. 2006 à 21:22
A bientôt ...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.