有关Edit控件的问题
问题描述：
在KeyKeyDown事件中，我想达到这样的一个目的：
当用户按下任一个健时（不包括状态键），文本筐中显示的是一个大写字母。
各路高手，教教小弟如何实现
问题点数：0、回复次数：1Top
1 楼Marl（Marl(赖哭弟)）回复于 2003-09-04 09:59:22 得分 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
