C cy111111 Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-07 #4 onkeypress事件;想实现按任意键关闭该窗体。
S shanys Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-07 #5 to cy111111: 把Form1的KEYPREVIEW属性制为TRUE; 用KEYDOWN事件吧。 if key>0 then close; TRY;
F Fyx Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-07 #8 不可能不行啊。在KeyDown或KeyPress里写一句Close就行了呀
B BaKuBaKu Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-08 #10 cy111111 大虾能不能把你的源码中关键的部分贴出来看一看,这个问题是不是太离奇了?
C cy111111 Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-22 #11 就是一个启动画面,三秒钟自动关闭,但我想设成按任意关闭,结果不行。
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-22 #12 cy111111 大虾能不能把你的源码中关键的部分贴出来看一看? 我还是不理解“设成按任意关闭,结果不行”啥意思。
D dq Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-23 #14 是不是你的MainForm出来的早?结果Splash窗口失去焦点了,所以它接收不到按键消息了。 如果是这样,那你可以把程序写在MainForm里: procedure TMainForm.FormKeyDown(Sender: TObject var Key: Word; Shift: TShiftState); begin if SplashForm.Visible then SplashForm.Close; end;
是不是你的MainForm出来的早?结果Splash窗口失去焦点了,所以它接收不到按键消息了。 如果是这样,那你可以把程序写在MainForm里: procedure TMainForm.FormKeyDown(Sender: TObject var Key: Word; Shift: TShiftState); begin if SplashForm.Visible then SplashForm.Close; end;