🚀 go-pugleaf

Ovo si pisao na c-u, je l'?
E ovako bi ja napisao u delphiju.

for i:=0 to Form1.ComponentCount do
    if Form1.Components[i] is TControl then
                            {da li je tipa TControl jer sve komponente
izvedene iz nje imaju color property}
        TControl(Form1.Components[i]).Color:=bilo sta;

Mladen B. <e7955@student.ftn.ns.ac.yu> wrote in message
news:01c0ed20$0a9be860$LocalHost@zvezda_n...
>
> kako da obojim neke svoje komponente na formi u neku boju... pitanje
> nije banalno jer treba da radim u run-time-u, s tim da ne znam sve
> komponente koje su mi na formi..
>
> postoji property Form->ControlCount i Form->Controls[] koji daju niz
> kontrola na formi kojima mogu pristupiti preko iteracije (for petlje)
> ali....
>
> sledeci segment koda nece da radi..
> for (...)
> {
>    Form1->Components[i]->Color = bilo_shta;
>    opet_bilo_shta = Form1->Components[i]->Color;
> }
>
> dakle ni chitanje ni pisanje...
> greshka koju mi javlja je " bla bla , Color" is not accessible...???
> ne kontam majke mi... ajde da sam ulovio nechiju tudju formu, ali svoju
> najrodjeniju?? ;)))
>
> znal' neko kako ovo...?
>
> pozdrav,
> mld.