Thema: Delphi sichtbar <> unsichtbar?

Einzelnen Beitrag anzeigen

Benutzerbild von nailor
nailor

Registriert seit: 12. Dez 2002
Ort: Karlsruhe
1.989 Beiträge
 
#7
  Alt 24. Dez 2002, 20:59
Sichtbare := 0;
if label1.visible = true then inc(sichtbare);

das für jeden button, dann steht in Sichtbare die Anzahl.

Machst du aber ein Array of TLabel kannst du mit

Sichtbare := 0;
for i := low(Array) to High(array) do
if label[i].visible = true then inc(sichtbare);

in 3 Zeilen packen...
Michael N.
http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen!
::: don't try so hard - it'll happen for a reason :::
  Mit Zitat antworten Zitat