我用Delphi7 开发的程序.在程序运行的时假为什么一打开就默认是智能ABC 输入法
解决方案 »
- 请教抓屏打印两问题
- 【动态创建事件过程改变动态创建的控件问题】
- 一个数据类型的强制转换问题!!
- 问关于MODEN的一个简单问题
- missing connection of connection string 得错
- 请问在D7下用batchmove拷贝一个数据库,怎样做进度条?
- 100分,有关存储过程的问题,请高手解析,在线等待.
- 怎样判断 鼠标按键?
- 谁知道在win2k中系统启动的程序写在注册表哪里?我想通过程序控制软件的启动!
- Delphi6中的一段代码注释,有无快捷键?
- 200分求教Delphi中接口interface怎么理解?如何使用?看书N久了,总是不的其解?
- AC Report 中式报各系统V1.83已上传,欢迎下载。
procedure Tform1.FormShow(Sender: TObject);
begin
clearIme(Sender);
end;procedure clearIme(formName : Tobject);
var
i : integer;
begin
for i := 0 to (formName as TForm).ComponentCount -1 do
begin
If (formName as TForm).Components[i] is TEdit then
((formName as TForm).Components[i] as TEdit).ImeName := '';
If (formName as TForm).Components[i] is TEdit then
((formName as TForm).Components[i] as TEdit).ImeName := '';
If (formName as TForm).Components[i] is TMemo then
((formName as TForm).Components[i] as TMemo).ImeName := '';
If (formName as TForm).Components[i] is TComBobox then
((formName as TForm).Components[i] as TComBobox).ImeName := '';
If (formName as TForm).Components[i] is TComBobox then
((formName as TForm).Components[i] as TComBobox).ImeName := '';
If (formName as TForm).Components[i] is TDateTimePicker then
((formName as TForm).Components[i] as TDateTimePicker).ImeName := '';
end;
end;