这应该是《开发人员指南》第五章《理解Windows消息》上的吧,我也正好在看。<br>cool_cool:您注意到了没有,后面那个例子在Delphi6下面运行好像有点问题!<br>一点那个TCheckBox复选按钮chkCapMsg就报错,您知道为什么吗?<br><br>//允许/禁止 复选按钮<br>procedure TfrmMsgCapture.chkCapMsgClick(Sender: TObject);<br>begin<br> if chkCapMsg.Checked then<br> begin<br> with TCheckBox((Sender as TCheckBox).Tag) do //这里好像有错<br> begin<br> Enabled := TCheckbox(Sender).Checked;<br> if not Enabled then Checked := False;<br> end;<br> end;<br>end;