Hallo,
ich habe zur Laufzeit 4 Groupboxen (Name=Tipp1-Tipp4) erstellt, welche je 49 Panel (Name=T1-T49) enthalten.
Nun möchte ich in einer funtion mittels einer schleife die einzelnen Panel auf Ihre Farbe abfragen.
Aber ic komme nicht weiter.
Kann mir jemand helfen?
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:
| function mengeantipps(tippfeld, tippzahl : integer) : integer; var menge : integer; pfeld : tgroupbox; ppanel: tpanel; I: Integer; begin menge:=0; pfeld.name:='Tipp' + inttostr(tippfeld); for I := 1 to 49 do ppanel.name:='T' + inttostr(tippfeld) + inttostr(i); begin if form1.pfeld.ppanel.color == claqua then begin menge:=menge+1; end;
end; end; |
Moderiert von Narses: Code- durch Delphi-Tags ersetztModeriert von Narses: Beiträge zusammengefasstIch habe das Problem nun selber lösen können.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30:
| function mengeantipps(tippfeld, tippzahl : integer) : integer; var menge : integer; ppanel: tpanel; I: Integer; x: Integer; z: Integer; begin menge:=0; x:= form1.ControlCount-1; for I := 0 to x do begin if form1.Controls[i] is tgroupbox then begin if form1.Controls[i].Name = 'Tipp' + inttostr(tippfeld) then begin for z := 0 to 48 do begin if form1.Controls[i].Components[z] is tpanel then begin ppanel := form1.Controls[i].Components[z] as tpanel; if ppanel.Color =claqua then menge:=menge+1; end; end; end; end; end; mengeantipps := menge; end; |
Moderiert von Narses: Code- durch Delphi-Tags ersetzt