给分吧-->
procedure TForm1.Edit1Enter(Sender: TObject);
begin
(Sender as TEdit).ImeMode := imSHanguel;//半角
end;procedure TForm1.Edit2Enter(Sender: TObject);
begin
(Sender as TEdit).ImeMode := imHanguel;//全角
end;
procedure TForm1.Edit1Enter(Sender: TObject);
begin
(Sender as TEdit).ImeMode := imSHanguel;//半角
end;procedure TForm1.Edit2Enter(Sender: TObject);
begin
(Sender as TEdit).ImeMode := imHanguel;//全角
end;
解决方案 »
- 如何用TPrinter打印Image中的图形
- 书上有个地方看不懂,高手来解释一下
- 请问我在RichEdit控件中实现:双击其中一行字符,就让这行字符的背景色变为红色,并取到这行字符或行号也行,该如何做啊?
- delphi 替换页眉页脚?
- 预览中动态生成QRLabel和QRDBText的问题 小女子先谢谢各位大虾!!(分数不够再加)
- 打印的问题。。。
- ★★请推荐几个做数据库报表的控件★★
- 关于MIDAS应用程序
- 请问windows环境下,的FTP.EXE 的用法(多谢)
- 确认一个问题,在线等待
- Delphi!!!!
- 当ManiForm为StayOnTop时,怎么样显示其它窗口,如输入框,消息框,是否都要设成"总在前面"?
if edit1.ImeMode=imSAlpha then
edit1.ImeMode:=imchinese
else
edit1.ImeMode:=imSAlpha;