关于Edit控件的问题
问题来源描述：
在KeyKeyDown事件中，我想达到这样的一个目的：
当用户按下任一个健时（不包括状态键），文本筐中显示的是一个大写字母而 不是小写字母。比如当用户键入a时， 文本筐显示的是A而不是a或Aa.
各路高手，教教小弟如何实现
问题点数：0、回复次数：5Top
1 楼Marl（Marl(赖哭弟)）回复于 2003-09-04 10:52:31 得分 0
附我的代码如下：
procedure TfrmSysSet.edtManualHotKeyKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
strKey:string;
nPos:integer;
begin
strKey := 'Ctrl + Alt + ';
if (Key = 8) or (Key = VK_DELETE) then
strKey :='无';
if ssShift in Shift then
strKey := 'Shift + ';
if ssCtrl in Shift then
strKey := 'Ctrl + '+ Chr(key);
if ssAlt in Shift then
strKey := 'Alt + '+ Chr(key);
edtManualHotKey.Text := strKey;
edtManualHotKey.SelStart := 30;
end;
Top
2 楼hiflower（花）回复于 2003-09-04 13:20:36 得分 0
OnKeyPress 事件 中写：
Key:=UpperCase(Key)[1];Top
3 楼Marl（Marl(赖哭弟)）回复于 2003-09-05 09:31:16 得分 0
to hiflower 厉害，谢谢，什么给你分呢？ 我什么没找到给分的方式呢？Top
4 楼Marl（Marl(赖哭弟)）回复于 2003-09-05 09:32:10 得分 0
给分你Top
5 楼hiflower（花）回复于 2003-09-05 11:55:00 得分 0
？关于Edit控件的问题（Marl） 10 4 9-5 09:32 管理
点“管理” 进入 管理界面Top
