一个关于大小写的问题
我想让输入的字母自动转换为大写 就写了这条语句 dzgbhEdit.Text:=uppercase(dzgbhEdit.Text);
但是写上之后运行发现 我在输入第一个字母后 光标会自动跑到字母的前面 而不是留在字母后面 这样 如果一次输入多个字母的话 就要在输入第一个字母后人为的把光标挪到后面才能继续如入 请教大家 还需要改什么地方才能正常输入呢 谢谢
另附代码 请指教 谢谢
begin
dzgbhEdit.Text:=uppercase(dzgbhEdit.Text);
zhigongQuery.close;
zhigongQuery.Params.Clear;
zhigongQuery.sql.clear;
zhigongQuery.Params.createparam(ftstring,'zgbh',ptinput).asstring:=dzgbhedit.Text;
zhigongQuery.sql.add('select * from zhigong where zgbh=:zgbh');
//zhigongQuery.ExecSQL;
zhigongQuery.open;
if zhigongQuery.RecordCount=1 then
begin
dzgxmedit.Text:=zhigongQueryzgxm.value;
dgdbhedit.Text:=zhigongQuerygdbh.value;
dgdmcedit.Text:=zhigongQuerygdmc.value;
dbmbhedit.Text:=zhigongQuerybmbh.value;
dbmmcedit.Text:=zhigongQuerybmmc.value;
dgzbhedit.Text:=zhigongQuerygzbh.value;
dgzmcedit.Text:=zhigongQuerygzmc.value;
dsfzcComboBox.Text:=zhigongQueryzgzc.value;
dsfffComboBox.Text:=zhigongQueryzgfa.value;
dzgrcDateTimePicker.Date:=zhigongQueryrcrq.Value;
djqksDateTimePicker.Date:=zhigongQueryjqks.value;
djqjsDateTimePicker.Date:=zhigongQueryjqjs.value;
dxggzDateTimePicker.Date:=zhigongQueryxggzrq.value;
dzgqkComboBox.Text:=zhigongQueryzgqk.value;
dzgxbComboBox.Text:=zhigongQueryzgxb.value;
Button3.SetFocus;
Button3.Focused;
end
else
begin
//dzgbhedit.Text:='';
dzgxmedit.Text:='';
dgdbhedit.Text:='';
dgdmcedit.Text:='';
dbmbhedit.Text:='';
dbmmcedit.Text:='';
dgzbhedit.Text:='';
dgzmcedit.Text:='';
dsfzcComboBox.Text:='';
dsfffComboBox.Text:='';
dzgrcDateTimePicker.Date:=nianyue(now);
djqksDateTimePicker.Date:=nianyue(now);
djqjsDateTimePicker.Date:=nianyue(now);
dxggzDateTimePicker.Date:=nianyue(now);
dzgqkComboBox.Text:='';
dzgxbComboBox.Text:='';
end;
zhigongQuery.close;
end;