impelement code; CheckBoxClick(CheckBox : TCheckBox) begin //do something end;call: CheckBox2.OnClick(Sender as TCheckBox);
procedure TSetup_Main.CheckBoxIsChange(Sender:TObject); begin if Sender is TCheckBox then end;为什么说 [Hint] SetupS_main_f.pas(73): Private symbol 'CheckBoxIsChange' declared but never used 呢?
CheckBoxClick(CheckBox : TCheckBox)
begin
//do something
end;call:
CheckBox2.OnClick(Sender as TCheckBox);
begin
if Sender is TCheckBox then
end;为什么说 [Hint] SetupS_main_f.pas(73): Private symbol 'CheckBoxIsChange' declared but never used 呢?
if CheckBox.checked then
//执行点击