|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
Delphi 12 Athens
|
Re: CheckGrp - ComboBox - Item Problem
4. Aug 2008, 14:51
Nehmen wir nochmal meinen Code aus #2 und erweitern ihn ein klein wenig:
Delphi-Quellcode:
procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
i:integer;
hilf:boolean;
begin
hilf:=false;
if CheckGroup1.Items.Count < 1 then
ShowMessage('Es gibt keine Items')
else
for i:= 0 to CheckGroup1.Items.Count - 1 do
if CheckGroup1.Checked[i] then hilf:=true;
if hilf then Button1.Enabled:=true;
end;
Was kommt dabei heraus?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|