T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
写了下面的代码，但是有个问题不知道怎么实现。private procedure Detect(var Msg:TMsg;var Handled:boolean); procedure TForm1.Detect(var Msg: TMsg; var Handled: boolean);begin (Msg.message=WM_keydown) or (Msg.message=WM_mousemove) or (Msg.Message = WM_RButtonDown) or (Msg.Message = WM_LButtonDown) thenbegin Timer1.Enabled :=Falseend;end;