Переключение раскладки на анг. яз в Edit

[Droid]

Народ подскажите, как мне сделать так, чтобы при нажатии на Edit, в нем раскладка сразу была английская и был capslock ?

[Alex Cones]

//На русский
procedure TForm1.Button1Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);
end;

//На английский
procedure TForm1.Button2Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
end;

Вместо батона вставляй онклик эдита

[Droid]

а capslock ?

[Alex Cones]

Var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[VK_NUMLOCK] = 0) then
KeyState[VK_NUMLOCK] := 1
else
KeyState[VK_NUMLOCK] := 0;
SetKeyboardState(KeyState);

надеюсь по поводу остальных кнопок догадаетесь

[Droid]

Сообщение от Alex Cones

Var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[VK_NUMLOCK] = 0) then
KeyState[VK_NUMLOCK] := 1
else
KeyState[VK_NUMLOCK] := 0;
SetKeyboardState(KeyState);

надеюсь по поводу остальных кнопок догадаетесь

Не получается чет

procedure TFD_DZ.Edit1Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
  KeyState: TKeyboardState;
begin
 LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
 GetKeyboardState(KeyState);
if (KeyState[VK_NUMLOCK] = 0) then
KeyState[VK_NUMLOCK] := 1
else
KeyState[VK_NUMLOCK] := 0;
SetKeyboardState(KeyState);
end;

procedure TFD_DZ.Edit1Change(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
    KeyState: TKeyboardState;
begin
 LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
  GetKeyboardState(KeyState);
if (KeyState[VK_NUMLOCK] = 0) then
KeyState[VK_NUMLOCK] := 1
else
KeyState[VK_NUMLOCK] := 0;
SetKeyboardState(KeyState);
end;

[Alex Cones]

Ну дык NUMLOCK на CAPSLOCK поменяйте.

по поводу остальных кнопок догадаетесь

[DomiNick]

чтобы при нажатии на Edit, в нем раскладка сразу была английская и был capslock

Чтоб сами включались или чтоб в TEdit печатались только заглавные латинские символы?

[Droid]

Сообщение от Alex Cones

Ну дык NUMLOCK на CAPSLOCK поменяйте.

Низвестный индентификатор пишет

Сообщение от DomiNick

Чтоб сами включались или чтоб в TEdit печатались только заглавные латинские символы?

Да чтоб печаталичь только заглавные латинские и цифры

[Alex Cones]

Да чтоб печаталичь только заглавные латинские и цифры

Ну тогда Вам нужно не это, Вам нужно поставить на событие онКейПресс запрет на ввод других символов.

[Droid]

с английскими получилось а с большим шрифтом нет...