大小写自动转换问题！简单！(50分)

T

TIDE_LIU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-24

• #1

各位！请教两个简单问题！
1.在文本框中不管输入大写还是小写都自动转换为大写！
2.怎么样限制文本框不能输入中文呢？

 

T

TIDE_LIU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-24

• #2

[blue]呵呵！太简单了吧！不知道会不会被人骂！[/blue]
[!] -> []

 

W

wheel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-24

• #3

代码:

//在Edit的OnPress事件里写,如:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if(Key>#127) then
    Key:=#0 //限制文本框输入中文
  else
    Key:=UpCase(Key);//自动转换为大写！
end;

 

W

wheel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-24

• #4

不会的,谁都不会一开始就会的.
大家一起学习，共同进步吧。[]

 

T

TIDE_LIU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-24

• #5

多谢多谢！