Solved

Change textbox language

Posted on 2003-11-16
8
1,201 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
Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

 

Expert Comment

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

var Russian: HKL;
0
 

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

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Delphi XE10, MySQL Query 4 143
how to center only a line in richedit? 4 56
Intraweb download file link ? 1 132
How to create virtual printer while installing my application 5 47
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…

816 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

8 Experts available now in Live!

Get 1:1 Help Now