X
xzhxu2006
Unregistered / Unconfirmed
GUEST, unregistred user!
我写了这样一个程序，大家帮忙看看！
新建一个工程Project1.exe,File Name为Unit1.Pas,窗体Name为Form1;
在Form1上添加Label1,Label2,Label3,它们的Visible均为False;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
Begin
Case Key of
VK_F9:
begin
Label1.Visible := True;
Label2.Visible := False;
Label3.Visible := False;
end;
VK_F10:
Begin
Label1.Visible := False;
Label2.Visible := True;
Label3.Visible := False;
end;
VK_F11:
Begin
Label1.Visible := False;
Label2.Visible := False;
Label3.Visible := True;
end;
End;
End;
编译运行后，问题来了
按下F9，Lable1显示出来了；按下F10，Label2显示出来了；再按下F11，Label3就不显示出来了，还是显示的Label2；如果用鼠标单击一下窗体，再按下F11，Label3就又能够显示出来；总之，再按下F10之前，（F1-F9,F11,F12都可以切换自如)；但按下F10后，必须用鼠标单击一下窗体，按下其它键才有效
不知道大家有没有遇到这样的问题，请高手指教！
新建一个工程Project1.exe,File Name为Unit1.Pas,窗体Name为Form1;
在Form1上添加Label1,Label2,Label3,它们的Visible均为False;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
Begin
Case Key of
VK_F9:
begin
Label1.Visible := True;
Label2.Visible := False;
Label3.Visible := False;
end;
VK_F10:
Begin
Label1.Visible := False;
Label2.Visible := True;
Label3.Visible := False;
end;
VK_F11:
Begin
Label1.Visible := False;
Label2.Visible := False;
Label3.Visible := True;
end;
End;
End;
编译运行后，问题来了
按下F9，Lable1显示出来了；按下F10，Label2显示出来了；再按下F11，Label3就不显示出来了，还是显示的Label2；如果用鼠标单击一下窗体，再按下F11，Label3就又能够显示出来；总之，再按下F10之前，（F1-F9,F11,F12都可以切换自如)；但按下F10后，必须用鼠标单击一下窗体，按下其它键才有效
不知道大家有没有遇到这样的问题，请高手指教！