Solved

Change textbox language

Posted on 2003-11-16
8
1,198 Views
Last Modified: 2008-03-03
Hi.
I would like to know if there is a way to change the language only inside a textbox.
For examble i would like to press a button and the user can insert french characters inside the current textbox.

I tried "ActivateKeyboardLayout", maybe i did something wrong, but it doesn work, is there any other way ?
0
Comment
Question by:CodedK
  • 5
  • 3
8 Comments
 

Expert Comment

by:13_th
ID: 9761636
var russian, latin: HKL;

russian:=LoadKeyboardLayout('00000419', 0);
latin:=LoadKeyboardLayout('00000409', 0);

-- -- -- -- -- in programm--- --- ---

SetActiveKeyboardLayout(russian);
0
 
LVL 16

Author Comment

by:CodedK
ID: 9763179
Well, this doesnt work... The code goes like this..

procedure TForm5.Image1Click(Sender: TObject);
var Russian: HKL;
begin
Russian:=LoadKeyboardLayout('00000419', 0);
end;

(Compiler message : var Russian never used.)

Maybe that happens because i dont have russian language in my pc. How can i find the # list of the languages ?
0
 
LVL 16

Author Comment

by:CodedK
ID: 9763199
About  SetActiveKeyboardLayout(russian); ---->
Undeclared identifier... SetActiveKeyboardLayout. Is there something in the uses section ?
0
 

Expert Comment

by:13_th
ID: 9763846
it is necessary to declare global. not in procedure !

var Russian: HKL;
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Expert Comment

by:13_th
ID: 9763996
Ukrainian 00000422
Russian 00000419
English 00000409
German 00000407
Spanish 00000403
polish 00000415
Romainan 00000418
French 0000040C
0
 

Expert Comment

by:13_th
ID: 9764140
//  greater number element array is reserved


TKBLayout = array [0..9] of HKL;
PKBLayout = ^TKBLayout;
...

n:= GetKeyboardLayoutList(10,KBLayoutList^);  // n - total number real spreading


// Number spreading possible to define so :

var
   i : integer;
   str : string;
SetLength(str,200);
for i:=0 to n-1 do begin
  ActivateKeyboardLayout(KBLayoutList^[i],0);
  GetKeyboardLayoutName(PChar(str));          
  showmessage(str);
end;

0
 

Accepted Solution

by:
13_th earned 40 total points
ID: 9764200
change
SetActivateKeyboardLayout to ActivateKeyboardLayout, sorry :)

uses windows;
0
 
LVL 16

Author Comment

by:CodedK
ID: 9768115
Thank you 13th for your quick response. It works fine now.  Though i cant understand your previous code ... i guess it shows a list of the codes. I am new here and in delphi too. I tried to make it work but i make something wrong i think. If you want clear it a little for me please.

I found this codes in a page and i will place it here for anyone having the same question.

Layout Codes
Arabic 00000401
Baltic 00000425
Central European 00000405
Greek 00000408
Hebrew 0000040D
Russian 00000419
Russian transliterated 00040419
Ukrainian 00000422
Ukrainian transliterated 00020422
US 00000409
US Dvorak 00010409
Turkish 0000041F
Western 00020409
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…

920 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now