Abi-Rechner

[AlexanderBrade]

Alles klar!
siehe Anhang...

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    procedure RefreshCbCount(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);


   
  private
    { Private-Deklarationen }
    FCntCBs: Cardinal;
  public
    { Public-Deklarationen }
  end;


  const cb1 = 1;
        cb2 = 2;
        cb3 = 3;
        cb4 = 4;
        cb5 = 5;
        cb6 = 6;
var
  Form2: TForm2;
  iMenge: set of Byte;

implementation

uses Unit3, Unit1;

{$R *.dfm}
 { Tform12 }




 procedure TForm1.RefreshCBCount(Sender: TObject);
begin
  if Sender is TCheckBox then
    begin
      if TCheckBox(Sender).Checked then
        inc(FCntCBs)
      else
        dec(FCntCBs);
      if FCntCBs > 3 then
        MessageBox(Handle,'Zuviele Checkboxen gewählt','Info',MB_OK or MB_ICONINFORMATION);
    end;
end;




procedure TForm2.Button2Click(Sender: TObject);
begin
form2.Visible:=false;
form1.visible:=true;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
form3.Visible:=true;
end;



procedure TForm2.Button3Click(Sender: TObject);
begin
iMenge:= [];
 if checkbox1.Checked then
    include(iMenge, cb1);
 if checkbox2.Checked then
    include(iMenge, cb2);
 if checkbox3.Checked then
    include(iMenge, cb3);
 if checkbox4.Checked then
    include(iMenge, cb4);
 if checkbox5.Checked then
    include(iMenge, cb5);
 if checkbox6.Checked then
    include(iMenge, cb6);

    if FCntCBs > 3 then
  MessageBox(Handle,'Zuviele Checkboxen gewählt','Info',MB_OK or MB_ICONINFORMATION);

if (cb1) and (cb2) and (cb3) in iMenge then showmessage('Naturwissenschaft'); //Abfragen der Menge
if (cb4) and (cb5) and (cb6) in iMenge then showmessage('Sprache');
{if cb1 and cb2 and cb4   then form4.label2.caption:=  }



end;

end.