title image


Smiley Re: Objekte auf einem Panel zählen..??-> schoener
procedure TForm1.Button1Click(Sender: TObject);var  count,i : integer;begin  count := 0;  for i:= 0 to panel1.ControlCount -1 do  begin    if (panel1.controls[i] is tcheckbox) then      inc(count);  end;  messagedlg('Es sind '+inttostr(count)+' Checkboxen auf dem Panel!',mtinformation,[mbok],0);end;Wow, funktioniert sogar...
Gruss G.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: