Abi-Rechner

[DeddyH]

Wozu musst Du wissen, wieviele Elemente Deine Menge enthält? Und was haut nicht hin? Genauere Infos wären schon hilfreich.

[AlexanderBrade]

Es gibt ja die Möglichkeit alle 6 Boxen gleichzeiig anzuklicken, als erstes muss ich überprüfen, dass nicht mehr als 3 Boxen aktiviert sind[ich möche für 4, 5 bzw. 6 aktivierte eine nachricht ausgeben die zur Korrektr der Angabn zwingt]der Rest funktioniert dann.

[DeddyH]

Zähl doch einfach in einer globalen Variablen bzw. einem privaten Feld mit, wieviele Checkboxen aktiviert sind.

[AlexanderBrade]

und wie? es tut mir immer leid so elementare Fragen zu stellen...
Aber unser Lehrer , so hat man immer den EIndruck, weiß garnicht wo von er spricht...

[DeddyH]

Eine Beispielunit mit 6 Checkboxen:

Delphi-Quellcode:

unit Unit12;

interface

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

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    procedure RefreshCBCount(Sender: TObject);
  private
    { Private-Deklarationen }
    FCntCBs: Cardinal;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm12 }

//Diese Methode wurde per Objektinspektor allen Checkboxen zugewiesen (OnClick)
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;

end.

[AlexanderBrade]

Wo muss ich diese Prozedur hinzufügen?
P.S. Soll ja beim Klick eines Buttons ducrhlaufen werden!

[DeddyH]

Kopier sie einfach in Deinen Quellcode (den Interface- und den Implementation-Teil). Und die Prüfung der Anzahl kannst Du ja ausschneiden und in Dein ButtonClick einfügen.

Zitat:

Delphi-Quellcode:

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

[AlexanderBrade]

Und wo kommt dann der Res deiner vorigen Prozedur hin(wenn ich nur die Abfrage der Anzahl einfüge hat er die Anzahl doch noch garnich gezählt), d.h. wie weise ich allen Checkboxen diese Methode per Objektinspektor zu?

[DeddyH]

Markiere die Checkboxen in der IDE, wechsel im OI auf den Reiter "Ereignisse" und wähle OnClick diese Methode aus.

[AlexanderBrade]

Wo schreibe ich jetzt die Prozedur hin?
Wenn ch sie einfach so im Quelltext al gliechwertige Prozedur einfüge werden verschiedene Betandteile der Prozedur rot unterstrichen und er kann nicht kompilieren!