018.htm

Delphi书籍--Delphi网上教程

<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">Form1: 
TForm1;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">implementation</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">{$R 
*.DFM}</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">procedure 
TForm1.FormShow(Sender: TObject);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">var</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">j:integer;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">begin</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">for 
j:=0 to screen.imes.count-1 do</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">begin</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">ComBoBox1.Items.Add(screen.Imes.strings[j]);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">//获取系统中已安装的中文输入法</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">end;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">end;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">procedure 
Tform1.OpenIme(imename:string);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">var</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">I:integer;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">myhkl:hkl;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">begin</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">if 
ImeName&lt;&gt;'' then</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">begin</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">if 
Screen.Imes.Count&lt;&gt;0 then</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">begin</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">I:=screen.Imes.indexof(imename);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">if 
I&gt;=0 then</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">myhkl:=hkl(screen.Imes.objects[i]);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">activatekeyboardlayout(myhkl,</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">KLF_ACTIVATE);//设置相应的输入法</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">end;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">end; 
</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">end;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">procedure 
TForm1.closeime;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">var</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">myhkl:hkl;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">begin</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">myhkl:=GetKeyBoardLayOut(0);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">if 
ImmIsIME(myhkl) then </span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">//判断是否在中文状态,若是则关闭它</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">immsimulateHotkey(handle,</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">IME_CHotKey_IME_NonIME_Toggle);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">end;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">procedure 
TForm1.ComboBox1Change(Sender: TObject);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">begin</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">OpenIme(ComboBox1.Text);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">end;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">procedure 
TForm1.BitBtn1Click(Sender: TObject);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">begin</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">immsimulateHotkey(handle,</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">IME_CHotKey_shape_Toggle);//切换半角和全角模式</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">end;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">procedure 
TForm1.BitBtn2Click(Sender: TObject);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">begin</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">immsimulateHotkey(handle,</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">IME_CHotKey_symbol_Toggle);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">//切换中文标点模式和英文标点模式</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">end;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">　</span></font></p>
<BR>
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">　</span></font></p>
<BR>
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">procedure 
TForm1.BitBtn3Click(Sender: TObject);</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">begin</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">closeime;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">end;</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">end.</span></font></p> 
<BR> 
<p ALIGN="JUSTIFY"><font lang="ZH-CN" face="宋体" size="2"><span style="font-size: 9pt">---- 
本 程 序 在Delphi 3.0/4.0 下 通 过。 </span></font></p> 
<hr color="#EE9B73" size="1" width="94%"> 
 
</TD> 
 
</TR> 
</table> 
</BODY></HTML>