请教三个很基础问题,别处拿50分。(0分)

冰雪

Unregistered / Unconfirmed
GUEST, unregistred user!
1、如何将焦点移至上一个控件?
2、为什么在combobox上输入汉字会出现乱码?如何解决?
3、我在edit1的onenter事件里输入以下代码:
edit1.SelStart :=1;
edit1.SelLength :=length(edit1.Text);
为什么我用鼠标将焦点移至edit1时,不会自动选中里面的内容?正确的代码该如何写?
 
3.edit1.selstart:=0吧
 
3.edit1.setfoucs;
 
TO:naughtboy大侠:
edit1.selstart:=0也是一样。
TO:懒虫007大侠:
用了setfoucs也没有反应。
 
这可能是你的系统有问题吧,刚刚我试过,在我的机器上2,3问题都没有出现。
 
TO:懒虫007大侠:
但我在onclick中用了以上代码却可以,不知道为什么?
 
combobox的autocomplete 为TRUE
 
对不起,没看清题目3,你可以把它加到OnClick事件中,
OnEnter只会在系统初始化时候选择成功。不信可以一试。
 
TO:buledevil:
我是将combobox的autocomplete 设为TRUE,还是一样,要输汉字,就得先输一空格,然后
才能正确的输入汉字,到底为什么啊?还有第1个问题也请大侠帮帮手啊。
 

1、组件.SetFocus
2、
3、在OnClick事件中,edit1.SelectAll
 
组件.SetFocus,在OnClick事件中,edit1.SelectAll我都实验过可以呀
一定是您的机器不好了
就想我的专上往的机器

按时死机呀
 
TO:影子:
我的意思是要当我按上箭头时,焦点移至上一个控件,而不用知道当前和上一个控件的名称
 
1、当用户按上箭头时,模拟键盘的Shift+Tab
2、把Combobox的Font属性的字符集改为GB2312_CHARSET
3、edit1.SelectAll
 
同一楼上
 
TO:samcrm大侠:
Shift+Tab的键值是多少啊?
 
我自己随便写了个键盘键位探测器,把你的mail留下,发给你。
不过tab键键位探不出,怪哉?
 
关于问题1可以用控件数组来完成,具体实现方法记不太清了,请各位帮忙吧。
我正在放假,两天后上线。
 
有没有如VB下的sendkeys函数啊?
 
在delphi 5 开发人员指南 的一章中有delphi中的sendkeys,是
用的hook,很长的
 
对于第二个问题,comobox汉字输入出现乱码:
在comobox属性中,将Autocomplete设为false就行了.
 
顶部