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

J

jklee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-27

• #1

谁能告诉我以下代码的作用及意思：
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;

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-27

• #2

如果按下箭头键，就选择下一个控制，如果是回车键或者是右箭头，就发一个TAB键过去。

 

J

jklee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-27

• #3

能详细解释以下两句吗？
SelectNext((Sender as TEdit),false,true);
perform(cm_dialogkey,vk_tab,0);

 

白

白海森

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-27

• #4

SelectNext((Sender as TEdit),false,true);
按控件Taborder的值，依次序将焦点移到下一个Edit控件上

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-27

• #5

SelectNext函数用于在对象中选择下一个子控件，第一个参数是当前控制，
第二个参数是向前还是向后，第三个参数是是否检查TabStop属性为真的才转，
perform是向当前参象发一条WINDOWS消息，参数是消息类型和具体参数，这里表是发一个对话框按键给它。就相当于按一下TAB键。

 

J

jklee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-27

• #6

谢谢