conversion automatique du clavier du latin vers l'ARABE

[kssamir]

Sur une forme j'utilise des "DBEDIT" pour saisir des informations en lation et des DBEDIT pour des info en ARABE

je veut éviter à l'utilisateur de manipuler la combinaison des touches "ALT + Shift DROIT" et "Alt + Shift Gauche"
pour passer d'une langue à une autre

aidez moi SVP et en Francais de preférance

 

[Svanhooft]

bonjour,

j'avias ici un piece de code pour toi, petetre le code aide toi.

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
sTemp: string;
begin
if (ssAlt) in shift then
begin
if GetKeyState(VK_SHIFT) < 0 then
begin
case key of
37: showmessage('gauge');
39: showmessage('Droit');
end;
end;
end;
end;

success

steph