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;
责任编辑：小草
