主题:登录问题请教
本人是新手,在看一个登录界面的时候,对以下的一段程序代码不是很懂,请教一下各位高手!
procedure TFormb.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = vk_Return) or(Key = vk_Down) then
Edit2.SetFocus;
end;
procedure TFormb.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down))and (BitBtn1.Enabled = True) then
BitBtn1.SetFocus
else
Edit2.SetFocus;
if Key = vk_Up then
Edit1.SetFocus;
end;
对于((Key = vk_Return) or(Key = vk_Down))起到的作用很不理解,
此外在看主界面的设计时,窗体中没有TreeView组件,但在单元中却存在以下代码
procedure TForm74.TreeView1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ESCAPE then
Close;
end;
想请教各位高手,这个函数起到了什么作用,又是如何得来的。
本人联系方式:moused@bvg.com.cn
还请高手指点一二
procedure TFormb.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = vk_Return) or(Key = vk_Down) then
Edit2.SetFocus;
end;
procedure TFormb.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down))and (BitBtn1.Enabled = True) then
BitBtn1.SetFocus
else
Edit2.SetFocus;
if Key = vk_Up then
Edit1.SetFocus;
end;
对于((Key = vk_Return) or(Key = vk_Down))起到的作用很不理解,
此外在看主界面的设计时,窗体中没有TreeView组件,但在单元中却存在以下代码
procedure TForm74.TreeView1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ESCAPE then
Close;
end;
想请教各位高手,这个函数起到了什么作用,又是如何得来的。
本人联系方式:moused@bvg.com.cn
还请高手指点一二