全角和半角

[heming]

imeMode可以设置全角和半角，但那是针对英文字母的，汉字也应该有全角、半角之分吧，ucdos 就是证据，有办法实现汉字全角、半角切换吗?

[peihexian]

给分吧-->
procedure TForm1.Edit1Enter(Sender: TObject);
begin
(Sender as TEdit).ImeMode := imSHanguel;//半角
end;

procedure TForm1.Edit2Enter(Sender: TObject);
begin
(Sender as TEdit).ImeMode := imHanguel;//全角
end;

[Kingron]

错了，不是imHanguel，而是imChinese：
if edit1.ImeMode=imSAlpha then
edit1.ImeMode:=imchinese
else
edit1.ImeMode:=imSAlpha;