procedure TMainForm.AppMsgCBClick(Sender: TObject);
{ enables/disables proper radio button for checkbox click }
begin
  if EatMsgCB.Checked then
  begin
    with TRadioButton((Sender as TCheckBox).Tag) do  //****
    begin
      Enabled := TCheckbox(Sender).Checked;
      if not Enabled then Checked := False;
    end;
  end;
end;其中***处什么意思?

解决方案 »

  1.   

    注释的作用,请看DEPHI的帮助
    Comments are ignored by the compiler, except when they function as separators (delimiting adjacent tokens) or compiler directives.
    There are several ways to construct comments:{ Text between a left brace and a right brace constitutes a comment. }
    (* Text between a left-parenthesis-plus-asterisk and an    asterisk-plus-right-parenthesis also constitutes a comment. *)// Any text between a double-slash and the end of the line constitutes a comment.A comment that contains a dollar sign ($) immediately after the opening { or (* is a compiler directive. For example,{$WARNINGS OFF}tells the compiler not to generate warning messages.
      

  2.   

    什么 ?
    我说:
    with TRadioButton((Sender as TCheckBox).Tag) do  
    这行什么意思?
      

  3.   

    什么 ?
    我说:
    with TRadioButton((Sender as TCheckBox).Tag) do  
    这行什么意思?