ソス@ソスソスDelphi2009ソスAWin7ソスソスImeModeソスソスソス艪ェソスH
|
ソスEC/C++
ソスEDelphi
ソスEVisual BasicソスソスソスSソスソス
ソス@(VB2-VB6ソスソス.NETソスソスソスp)
ソスEVisual Basic(VB2-VB6)
ソスEVisual Basic .NET
ソスEVisual C++
ソスEpapy's softwarelibrary
delphi2009ソスソスIMEソスソスソスソスノつゑソスソスナ具ソスソスソスソストゑソスソスソスソスソスソスソスソスB
Win Xp-ProソスソスソスDelphi2009ソスノゑソスソスFormソスソスEdit1ソスAEdit2ソスソスソスソスワゑソスソスB
Edit1ソスヘ、ソスpソスソスソスソスソスフみゑソスソスソスヘゑソスソス驍スソス゚、ImeModeソスソスimDisableソスノ、
Edit2ソスヘ、ソスSソストの包ソスソスソスソスソスソスけ難ソスソスソスソスラ、ImeModeソスソスimDontCareソスノ設定しソスワゑソスソスB
IMEソスソスMsソスソスNatural Input 2002 ver2.1ソスナゑソスソスB
ソスソスソスフとゑソスソスAEdit2ソスナゑソスImeソスフ難ソスソスヘソスソス[ソスhソスソスソスネゑソスナゑソスソスソスソストゑソスAKanaソスLソス[ソスソスソスbソスNソスソスソスソスソスソスソスソスナゑソス
Edit2ソスソスソスソスEdit1ソスソスFocusgソスソスソスレゑソスニ、Edit1ソスナゑソスIMEソスヘ、ソスソスソスpソスpソスソスソスソスソスヘになゑソスワゑソスソスB
ソスソスソスソスヘ、ソス]ソスソスナゑソスソス體ョソスソスナゑソスソスB
ソスニゑソスソスがソスAソスソスソスソスEXEソスソスWin7ソスソスPCソスヨイソスソスソスXソスgソス[ソスソスソスソスソスソスソス
Edit2ソスソスソスソスEdit1ソスソスFocusソスソスソスレゑソスソスソスソスニゑソスソスソスIMEソスフ難ソスソスヘソスソス[ソスhソスソスWin Xpソスニ難ソスソスがソスルなゑソスワゑソスソスB
ソスソスソスニゑソスソスホ、
Edit2ソスソスソスAソスミらがソスネ難ソスソスヘで、KanaソスLソス[ソスソスソスbソスNソスソスソスOソスソストゑソスソスソスニゑソスソスソスEditソスPソスソスFocusソスソスソスレ難ソスソスソスソスソスソスIMEソスヘひらがソスネ難ソスソスヘのままでゑソスソスソスソスAソスソスソスヘは費ソスソスpソスpソスソスソスノなゑソスワゑソスソスB
ソスワゑソスソスAEdit2ソスソスソスAソスミらがソスネ難ソスソスヘで、KanaソスLソス[ソスソスソスbソスNソスソスソスOソスソストゑソスソスネゑソスソスニゑソスソスソスEditソスPソスソスFocusソスソスソスレ難ソスソスソスソスソスソスIMEソスヘひらがソスネ難ソスソスヘのままで、ソスソスソスヘは費ソスソスpソスJソス^ソスJソスiソスノなゑソスソストゑソスソスワゑソスソスワゑソスソスB
ソス[ソスソスソスソスソスソスソスネゑソスソスフは、EditソスPソスナの難ソスソスヘソスソス[ソスhソスフ表ソスソスソスソスソスソスソスヘ値ソスニ搾ソスソスソスソストゑソスソスネゑソスソスB
KanaソスLソス[ソスソスソスbソスNソスフ擾ソスヤのゑソスソスソスソスソス轤クソスAソスpソスソスソスソスソスヘになゑソスネゑソスソスソス2ソス_ソスナゑソスソスB
ソスソスソスソスヘ、ソスソスソスソスソスソスPCソスソスソスソスソスナはなゑソスソスAソスFソスlソスソスPCソスソスWin7ソスナゑソスソスソスソスソスノなゑソスワゑソスソスB
ソスソスソスソスソスAWin Xpソスニ難ソスソスソスソス謔、ソスノ難ソスソスすソスソス謔、ソスノゑソスソスソスノはどのようソスノゑソスソスソスホよいソスナゑソスソス蛯、ソスソスソスB
ソスソスしソスソスソスソスソス閧「ソスソスソスソスソスソスソスワゑソスソスB
ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソスTソスgソスE
ソスソスソスネゑソス
Edit1ソスヘ、ソスpソスソスソスソスソスフみゑソスソスソスヘゑソスソス驍スソス゚、ImeModeソスソスimCloseソスノ、
Edit2ソスヘ、ソスSソストの包ソスソスソスソスソスソスけ難ソスソスソスソスラ、ImeModeソスソスimHiraソスネど頻ソスxソスフ托ソスソスソスソスソスヤに設定しソスワゑソスソスB
ソスソスソスソスソスソスソスソス@ソスソスソスソスホゑソスソス
ソスソスソストゑソスソスソスソスソスソスソスソストゑソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスナゑソスAソスソスソスソスソスソスニ趣ソスソスソスソスソスソスニゑソスソストゑソスソスソス_ソスニゑソスソスソスソスソスニ茨ソスソスソストゑソスソスソス謔、ソスナゑソスソスB
ImeModeソスソスimCloseソスノゑソスソスソスニ、ソスソスソス[ソスUソス[ソスヘ趣ソスソスソスソスソスIMEソスソスOpenソスナゑソスソストゑソスソスワゑソスソスワゑソスソスB
ソスワゑソスソスAEdit2ソスヘ、ソスソスソス[ソスUソスフ好ソスンににゑソスソスソスト奇ソスソスソスソスナ難ソスソスヘゑソスソスソスソスソスAソスソスソスネで難ソスソスヘゑソスソスソスソスソスニ、ソスソスソスフ人ソスフ好ソスンに任ソスソスソスソスソスソスソスニ考ソスソスソストゑソスソスワゑソスソスフで、imHiraソスノ鯉ソスソス゚付ソスソスソスソスソスソスソスネゑソスソスフゑソスimDontCareソスソスIソスソスナゑソスソスワゑソスソスB
ソスソスソスいソスソスAソスソスソスソスソスナゑソスソスソスラてゑソスソスワゑソスソスソスソスAKeybd_eventソスRソス}ソスソスソスhソスナでゑソスソス驍ゥソスネと確ソスソスソス゚てみまゑソスソスソスソスソスソスAWinXPソスナは難ソスソスソスソストゑソスソスソスワゑソスソスソスWin7ソスナはゑソスソスソスマゑソス]ソスだようソスノゑソスソスソスソスソスソストゑソスソスソスワゑソスソスソスB
ソスソスソス[ソスJソスソスHPソスソスソスソスソスニ、Delphi2010ソスソスWin7ソスホ会ソスソスニ出ソストゑソスソスワゑソスソスソスソスソスソスAソスソスソスフゑソスソス゚でゑソスソス蛯、ソスソスソスH
ソスソスソスソスソスソスソスソスAソスソスソスソスソスナゑソスmソスソスソス゚ゑソスソスソスソスニ思ソスソスソストゑソスソスワゑソスソスB
ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソス@ソスTソスgソスE
ソスtソスHソス[ソスソスソスフ変撰ソスソスソス
FPrevIME: HIMC;
ソスソスヌ会ソスソスソスソスト、FormソスソスOnCreateソスモゑソスソス
FPrevIME := ImmAssociateContext(Edit1.Handle, 0);
OnDestroyソスソス
ImmAssociateContext(Edit1.Handle, FPrevIME);
ソストゑソスソスホ、ソスニりあソスソスソスソスIMEソス無鯉ソスソスノは出ソスソスソスワゑソスソスヒ。ソスソスソスソスソスJソスiソスソスソスbソスNソスノ関ゑソスソストは変ゑソスソスネゑソスソスナゑソスソスB
ソスナ、ソスソスソスソスIMEソスフ具ソスソスソスソスノ関ゑソスソストゑソスXEソスナゑソス齒擾ソスナゑソスソスヒ。
ソスソスフゑソスソスソスソスソスソスソスEditソスソスソスソス闥シソスソスソス黷スソスソスソスネんかに対会ソスソスoソスソスソスネゑソスソスフと、ソスソスソスソスヨゑソスソスソスソスソスソスヘコソスソスソスeソスLソスXソスgソスソスソスソスソスノ包ソスソスソスソスソスソス痰、ソスフでまゑソスソスソスソスCソスソスソスソスソスワゑソスソスB
ソスソスソスソスソスニゑソスソスネゑソスAEditソスソスpソスソスソスソスソスソスソスフゑソスソス驍オソスソスソスネゑソスソスフゑソスソスソスBSetIMEソスソスResetIMEソスソスvirtualソスネゑソスヌゑソスソスソスソスソスソスソスナゑソスソスソスソスソス
ソスソスソスフ場合ソスヘ、ソスソスソスソスソスソスソスヘゑソスsソスソスソスツ能ソスソスソスソスソスソスソスソスEditソスソスソスソスソスソスtソスHソス[ソスJソスXソスソスソスOソスソス骼橸ソスソス
ソスソスソスソスソスIソスソスIMEソスソスIソスtソスノゑソスソストゑソスソスワゑソスソストゑソスソスワゑソスソスB
ソスソスソスソスソスソスソスソスソスソスソスフ様ソスノ奇ソスソスソスソスソスソスヘゑソスsソスソスソスソスソスレでゑソスImeModeソスソスimHiraソスノゑソスソストゑソスソスワゑソスソスフゑソス
ソスソスソスソスナゑソスソスソスヘゑソスソスソスワゑソスソスが、ソスTソスgソスEソスソスソスソスフ場合ソスソスEdit2ソスソスIMEソスソスIソスソスソスノゑソスソスソスソスソス
Edit1ソスノ移難ソスソスソスソスAソスソスソスソスソスEdit2ソスノ戻ゑソスソスソスソスソスソスソスIMEソスソスソスIソスソスソスノ戻ゑソスソスト欲ソスソスソスソスソスフなゑソスソス
ソスソスソスソスソスソスニ工ソスvソスソスソスソスソス驍ゥソスソスソスソスソスワゑソスソスソスB
ソスソスソスネみゑソスIMEソスソスIソスtソスノゑソスソスソスノは会ソスソスLソスフイソスxソスソスソスgソスソスOnExitソスノ奇ソスソス闢厄ソストてゑソスソスワゑソスソスB
usesソスソスImmソスフ追会ソスソスソスソスKソスvソスナゑソスソスB
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
procedure CustomEditExit(Sender: TObject);
private
{ Private ソス骭セ }
public
{ Public ソス骭セ }
end;
procedure TForm1.CustomEditExit(Sender: TObject);
var
imc: HIMC;
begin
imc := ImmGetContext((Sender as TWinControl).Handle);
if imc <> 0 then
begin
if ImmGetOpenStatus(imc) then
ImmSetOpenStatus(imc, False);
ImmReleaseContext((Sender as TWinControl).Handle, imc);
end;
end;
ソスソスソスネり無ソスソスソス理ソスナゑソスソスソスソスヌ会ソスソスンゑソスソスソスソスネ奇ソスソスソスソスソスソスネ。
TFormソスフ宣言ソスフ前ソスノ追会ソスソスソスソストゑソスソスソスソスソスソスソスソスB
TEdit = class(StdCtrls.TEdit)
private
FOldIMC: HIMC;
FKanaMode: Boolean;
procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
public
destructor Destroy; override;
end;
destructor TEdit.Destroy;
begin
if FOldIMC <> 0 then
ImmAssociateContext(Handle, FOldIMC);
inherited;
end;
procedure TEdit.WMKillFocus(var Message: TWMKillFocus);
begin
inherited;
if ImeMode=imDisable then
begin
if FOldIMC <> 0 then
begin
ImmAssociateContext(Handle, FOldIMC);
FOldIMC := 0;
if FKanaMode And ((GetKeyState(VK_KANA) And 1) = 0) then
begin
keybd_event(VK_KANA, 0, 0, 0);
keybd_event(VK_KANA, 0, KEYEVENTF_KEYUP, 0);
end;
end;
end;
end;
procedure TEdit.WMSetFocus(var Message: TWMSetFocus);
begin
inherited;
if ImeMode = imDisable then
begin
FOldIMC := ImmAssociateContext(Handle, 0);
FKanaMode := (GetKeyState(VK_KANA) And 1) = 1;
if FKanaMode then
begin
keybd_event(VK_KANA, 0, 0, 0);
keybd_event(VK_KANA, 0, KEYEVENTF_KEYUP, 0);
end;
end else begin
if FOldIMC <> 0 then
begin
ImmAssociateContext(Handle, FOldIMC);
FOldIMC := 0;
end;
end;
end;
AUソスソスソスソスAQUESTソスソスソスソス@ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスソスソスソスミゑソスソスソスAソスソスソストゑソスソスソスソスホゑソスソスソスナ、ソスmソスFソスヘ厄ソスソスソスソスフ晩に行ソスソスソスワゑソスソスB
ソスソスソスソスソスAソスソスソスjソスfソスlソスvソスソスソスOソスソスソス}ソス[ソスノは擾ソスソスソスソスしソスソスソスソスソスナゑソスソスヒ。
ソスソスソスソスソスAソスソスソスソスソスソスmソスFソスソスソストみまゑソスソスソス
IMEソスソスOn/OffソスAKanaソスソスソスbソスNソスニゑソス]ソスだ難ソスソスソスソスソスソスソスワゑソスソスソスソスBソスソスソスソスソスAソスネゑソスソスソスソスフようソスノ難ソスソスソスソスソスソスソスソスソスソスソスナゑソスソストゑソスソスワゑソスソスソスフで、ソスソスソス黷ゥソスソスHelpソスソスソスソスソスソスソスソスソスソスト鯉ソスソスワゑソスソスB
AUソスソスソスソスAQUESTソスソスソスありがソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスネゑソスニゑソスAUソスソスソスソスフコソス[ソスhソスソスヌみ会ソスソスソスワゑソスソスソスソスB
ソスソスソスソスソスソスソスAImmAsociateContextソスソスソスソスソスソスナゑソスソスワゑソスソスソスBソスソスソスソスIMEソスフ撰ソスソスソスソスだろうソスニゑソスソスソスソスソスAソスlソスbソスgソスナ鯉ソスソスソスソスソスソストみまゑソスソスソスソスソスソスAソスソスソスフ暦ソスソスソスフ範囲を明らかソスノ抵ソスソスソスソストゑソスソスワゑソスソスBソスソスソスソスネ擾ソスヌゑソスネゑソスソスソスソスニにゑソスソスワゑソスソスBソスiソスホ)
ソスソスソスソスニ、AUソスソスソスソスフコソス[ソスhソスソスソスソスRソスソスソス|ソス[ソスlソスソスソスgソスソスVソスソスソスノ作成ソスソスソスネゑソスソスナ、ソス齊橸ソスIソスノカソスXソス^ソス}ソスCソスYソスソスソスソスソスソス@ソスソスmソスソスワゑソスソスソスソスBソスソスソスソスヘ趣ソスソスノとゑソスソスト費ソスソスノ使ソスソスソスナのゑソスソスソスソス@ソスナゑソスソスBソスソスソスソスgソスせソストゑソスソスソスソスソスソスソスソスワゑソスソスB
AUソスソスソスソスAQUESTソスソスソスソス@ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソス皷曵MEソスフ表ソスソスソスソスソスマゑソスソスネゑソスソスソスソスノつゑソスソスソスQCソスノ登ソス^ソスソスソストゑソスソスソスソスワゑソスソスソスソスB
http://qc.embarcadero.com/wc/qcmain.aspx?d=94701
Delphi2009ソスソスWin7ソスホ会ソスソスソスソストなゑソスソスソスソスソスト鯉ソスソスソス黷ソソスソスソスソスソスソスフで修ソスソスソスヘゑソスソスソスネゑソスソスナゑソスソス蛯、ソスソスソスヌ、XEソスフ包ソスソスヘ修ソスソスソスソスソスト欲ソスソスソスソスソスナゑソスソスヒゑソスソスB
ソスJソスiソスソスソスbソスNソスノ関ゑソスソストは、XPソスナゑソスATOKソスソスソスニソスソスbソスNソスソスソスソスソスソスソスワまになゑソスソスソスソス閧オソスソスソスフゑソスIMEソスノゑソスソスソスト難ソスソスがソス痰、ソスフゑソスソスソスソスソスソスワゑソスソスソスB
XEソスソスWin7ソスニの環具ソスソスソスソスソスソスナチソスFソスbソスNソスソスソストゑソスソスソスソス謔、ソスナゑソスソスヒ。
ソスワゑソスソス@ソスソスソス蛯、ソスソスソスネゑソスソスナゑソスソスヒ。
ソスナゑソスAソスソスソスソスソスソスソスNソスソスソスNソスフようソスソスUpgradeソスソスソスソスソスソスニ、ソスdソスソスソスナ使ソスソスソストゑソスソスソスlソスヘゑソスソスソスソスニゑソスソストゑソスツ人ソスIソスgソスソスソストゑソスソスソスlソスノはつらいソスソスフゑソスソスソスソスソスワゑソスソスB
Delphiソスソスgソスソスソストゑソスソスソスlソスヘ、Delphiソスノ搾ソスソスソスト使ソスソスソストゑソスソス驍アソスニと思ソスソスソスワゑソスソスBDelphiソスソスソス逞」ソスソストゑソスソスソスソスlソスソスソスナなゑソスソス謔、ソスネ施ソスソスソスナゑソスソストほゑソスソスソスソスナゑソスソスヒ。