New Tip - ...switch the keyboard layout for the application ?

  • From: "SwissDelphiCenter.ch" <newsletter@xxxxxxxxxxxxxxxxxxxx>
  • To: sdcnewtip@xxxxxxxxxxxxx
  • Date: Thu, 28 Feb 2002 13:19:14 +0100

* SwissDelphiCenter new Tip newsletter
* www.swissdelphicenter.ch
*
* To unsubscribe send a mail to sdcnewtip-request@xxxxxxxxxxxxx with the
* subject unsubscribe


Hallo,

Folgender neuer Tip ist neu auf SwissDelphiCenter verfügbar:

Besuchen Sie die Programmier Tips unter 
http://www.swissdelphicenter.ch/de/tipsindex.php


Bewerten Sie diesen Tip nach Schwierigkeitsgrad, Nützlichkeit und Gesamthaft auf
http://www.swissdelphicenter.ch/de/showcode.php?id=1045



Autor:
Kris <frost300@xxxxx>



-------------
...das Tastatur Layout für die Anwendung wechseln ?
-------------
Kategorie: System



{
  Der folgende Code aktiviert als Beispiel das griechische Tastatur Layout
  für diese Anwendung.
  Das funktioniert nur, wenn das gewünschte Layout installiert ist, ansonsten
  passiert nichts.
}

{
  Following code will activate 'Greek' Keyboard Layout
  for the application.
  This would only Load the Keyboard Layouts
  which are installed on that very machine otherwise
  there would be no affect.
}

procedure TForm1.Button1Click(Sender: TObject);
var
  LangIdentifier: String;
begin
  LangIdentifier := '00000408'; //'0000408' is the Language Identifier for Greek
  LoadKeyboardLayout(PChar(LangIdentifier), KLF_ACTIVATE);
end;




Best Regards
SwissDelphiCenter Team
www.swissdelphicenter.ch
[automatisch generierte EMail]


----------------------------------------------------
ENGLISH NEWSLETTER
----------------------------------------------------

Hi,

This new tip is new available on SwissDelphiCenter.ch:

Visit the programming tips at http://www.swissdelphicenter.ch/en/tipsindex.php


Rate this tip after skill, useful and overall at
http://www.swissdelphicenter.ch/en/showcode.php?id=1045



Author:
Kris <frost300@xxxxx>



-------------
...switch the keyboard layout for the application ?
-------------
Category: System



{
  Der folgende Code aktiviert als Beispiel das griechische Tastatur Layout
  für diese Anwendung.
  Das funktioniert nur, wenn das gewünschte Layout installiert ist, ansonsten
  passiert nichts.
}

{
  Following code will activate 'Greek' Keyboard Layout
  for the application.
  This would only Load the Keyboard Layouts
  which are installed on that very machine otherwise
  there would be no affect.
}

procedure TForm1.Button1Click(Sender: TObject);
var
  LangIdentifier: String;
begin
  LangIdentifier := '00000408'; //'0000408' is the Language Identifier for Greek
  LoadKeyboardLayout(PChar(LangIdentifier), KLF_ACTIVATE);
end;



Best Regards
SwissDelphiCenter Team
www.swissdelphicenter.ch
[automatic generated EMail]

Other related posts:

  • » New Tip - ...switch the keyboard layout for the application ?