• Registered: 2014-02-17
  • Posts: 365

Topic: How To edit script checkbox for select same RadioButton

I try edit script but error for click select sex male,female component checkbox
how to edit script ???

procedure Form1_CheckBox2_OnClick (Sender: string);
begin
Form1.CheckBox1.State := cbUnchecked ;
Form1.CheckBox2.State := cbchecked ;
Form1.Color := ClGreen ;
end;

procedure Form1_CheckBox1_OnClick (Sender: string);
begin
Form1.CheckBox1.State := cbchecked ;
Form1.CheckBox2.State := cbUnchecked ;
Form1.Color := ClBlue ;
end;

begin                                      

end.
My Visual Database : I Love You
Easy For Beginner Student For Me
  • Registered: 2014-02-14
  • Posts: 10,294

Re: How To edit script checkbox for select same RadioButton

procedure Form1_CheckBox2_OnKeyUp (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    Form1.CheckBox1.Checked := Form1.CheckBox2.Checked;
end;

procedure Form1_CheckBox1_OnKeyUp (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    Form1.CheckBox2.Checked := Form1.CheckBox1.Checked;
end;


procedure Form1_CheckBox2_OnMouseUp (Sender: TObject; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
begin
    Form1.CheckBox1.Checked := not Form1.CheckBox2.Checked;
end;
                 
procedure Form1_CheckBox1_OnMouseUp (Sender: TObject; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
begin
    Form1.CheckBox2.Checked := not Form1.CheckBox1.Checked;
end;
Dmitry.