Making a simple Software with Delphi7

This simple program created with Delphi7, to find out while the natural strains of the disease in someone with a checkbox to check-existing checkbox on the form.

Program form that has been completed is made (Form1).

Program listings on the check button (button1).

procedure TForm1.Button1Click (Sender: TObject);
begin
button1.Enabled: = false;
If c1.checked and c2.checked and c3.checked and c4.checked and c5.checked and c6.checked and c7.checked and c8.checked and c9.checked and c10.checked and c11.checked then
begin
     l3.Caption: = 'Cacar';
     l4.Caption: = 'Bronchitis khronik';
     l5.Caption: = 'Maningitis';
     l6.Caption: = 'Anemia';
     l7.Caption: = 'tipus';
     label2.Visible: = true;
end 
else If c1.checked and c2.checked and c4.checked and c5.checked and c6.checked and c7.checked and c9.checked then
begin
     l3.Caption: = 'Cacar';
     l4.Caption: = 'Bronchitis Khronik';
     l5.Caption: = 'Maningitis';
     l6.Caption: = 'Anemia';
     label2.Visible: = true;
end
else If c1.checked and c2.checked and c4.checked and c5.checked then
begin
     l3.Caption: = 'Cacar';
     l4.Caption: = 'Bronchitis Khronik';
     label2.Visible: = true;
end
else If c1.checked and c2.checked and c3.checked and c7.checked and c8.checked and c9.checked then
begin
     l3.Caption: = 'Cacar';
     l6.Caption: = 'Anemia';
     label2.Visible: = true;
end
else
If c1.checked and c2.checked and c3.checked then
begin
      l3.Caption: = 'Smallpox';
end
else if
     c4.checked and c5.checked then
begin
     l4.Caption: = 'Bronchitis khronik';
end
else if
     c6.checked and c3.checked then
begin
     l5.Caption: = 'Maningitis';
end
else if
     c7.checked and c8.checked and c9.checked then
begin
     l6.Caption: = 'Anemia';
end
else If c10.checked and c11.checked and c8.checked and c3.checked then
begin
     l7.Caption: = 'tipus';
end
end;
procedure TForm1.Button2Click (Sender: TObject);
begin
button1.Enabled: = true;
c1.Checked: = false;
c2.Checked: = false;
c3.Checked: = false;
c4.Checked: = false;
c5.Checked: = false;
c6.Checked: = false;
c7.Checked: = false;
c8.Checked: = false;
c9.Checked: = false;
c10.Checked: = false;
c11.Checked: = false;
   l3.Caption :='';
   l4.Caption :='';
   l5.Caption :='';
   l6.Caption :='';
   l7.Caption :='';
   label2.Visible: = false;
end;

 nformation button serves to call form2, form2 which contains information about the program. (shown below)

 Exit button to exit the programs that are running....

Share this post