Lotto mit Delphi ... (hilfe)

[Klaus01]

So, da Du mit einer CheckListbox arbeiten darfst...

Wenn Du im ObjectInspector der Checklistbox die Rubrik events/Ereignisse
aufmachst findest Du dort das Event onClickCheck.
Diese Event wird ausglöst wenn ein Item Deiner CheckListbox angeklickt wird.

Hier ein kleine Starthilfe was du in dem event eintragen könntest.

Delphi-Quellcode:

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
  if (sender as TCheckListbox).Checked[(sender as TCheckListbox).ItemIndex] then
    inc(counter)
  else
    dec(counter);
end;

Wobei counter der Zähler ist, der die Anzahl der bereits angekreuzten Zahlen beinhaltet.

Grüße
Klaus