防止误动作OnClick执行期间的点击无效计算机二级考试
文章作者 100test 发表时间 2009:05:13 17:43:32
来源 100Test.Com百考试题网
2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
TBitBtn控件的:为防止误动作 OnClick执行期间的点击(鼠标点击 热键点击)无效
对于TButton控件的可能同样有效
==============================================
Procedure TForm1.BitBtn1Click(Sender: TObject).
var msg:TMsg.
Begin
//这里放其它代码
While PeekMessage(msg, Handle, WM_KEYFIRST, WM_KEYLAST,PM_REMOVE ) Do.
While PeekMessage(msg, BitBtn1.Handle, WM_MOUSEFIRST, WM_MOUSELAST,PM_REMOVE) Do.
End.
特别推荐:
2009年9月全国计算机等级考试时间及科目预告