我是新手帮帮我!!!(50分)

  • 主题发起人 主题发起人 jklee
  • 开始时间 开始时间
J

jklee

Unregistered / Unconfirmed
GUEST, unregistred user!
谁能告诉我以下代码的作用及意思:
procedure TForm.RadioButton1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if key=38 then
begin
key:=0;
SelectNext((Sender as TEdit),false,true);
end;
if(key=13)or(key=40)then
begin
key:=0;
perform(cm_dialogkey,vk_tab,0);
end;
end;
 
如果按下箭头键,就选择下一个控制,如果是回车键或者是右箭头,就发一个TAB键过去。
 
能详细解释以下两句吗?
SelectNext((Sender as TEdit),false,true);
perform(cm_dialogkey,vk_tab,0);
 
SelectNext((Sender as TEdit),false,true);
按控件Taborder的值,依次序将焦点移到下一个Edit控件上
 
SelectNext函数用于在对象中选择下一个子控件,第一个参数是当前控制,
第二个参数是向前还是向后,第三个参数是是否检查TabStop属性为真的才转,
perform是向当前参象发一条WINDOWS消息,参数是消息类型和具体参数,这里表是发一个对话框按键给它。就相当于按一下TAB键。
 

Similar threads

I
回复
0
查看
477
import
I
I
回复
0
查看
553
import
I
I
回复
0
查看
462
import
I
I
回复
0
查看
563
import
I
后退
顶部