高分求关于maskedit控件的设置问题！~~~~~~~~~~~~~~~~

Question

该怎样设置或怎样写语句才能使maskedit文本里输入的无论是大写字母或小写字母，显示的都是大写字母？？？？？？？？？？？

Answer 1

不知怎样写，
自己转换不成吗？
onkeypress : uppercase(key)

Answer 2

楼上的，将uppercase(key)写到onkeypress事件里不能转换啊！~~~~~~~~~~~~~~~~

Answer 3

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  s: string;
begin
  s := uppercase(key);
  key := s[1]; // OK
end;

Answer 4

楼上兄弟……你转来转去的不累吗？
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  key := upcase(key);   
end;