Delphiben kéne segítség, Timer komponensben hogy lehetne beállítani hogy több színt váltson gombnyomásra egy kép vagy felirat?

Szia.

Nem értem a kérdést.

Most timer vagy gombnyomás ?

A több szin váltást sem értem, ez mit takar ? (egy felirat több szinnel történő kiirását, vagy egy felirat egy szinnel történő kiirását és ezen szin változtatásáz)

A Kép szinváltása meg egészen más dolog az már egy kicsit bonyolultabb.

Egy szin és ezen szin változtatása egy feliratnál :

Felveszel egy szin tömböt, ebbe belepakolod a szineket

pl.

Var Szinek : array [0..16] of tcolor ;

.

.

.

.

Begin

Szin1ek00]:=clBlack;

Szinek[01]:=clMaroon;

Szinek[02]:=clGreen;

Szinek[03]:=clOlive;

Szinek[04]:=clNavy;

Szinek[05]:=clPurple;

Szinek[06]:=clTeal;

Szinek[07]:=clSilver;

Szinek[08]:=clGray;

Szinek[09]:=clRed;

Szinek[10]:=clLime;

Szinek[11]:=clYellow;

Szinek[12]:=clBlue;

Szinek[13]:=clFuchsia;

Szinek[14]:=clAqua;

Szinek[15]:=clWhite;

És felveszel egy változót ami mutatja, hogy éppen melyik szin a soros :

Szinpos;=-1;

Most a gombnyomás Onclick vagy a Timer OnTimer eseményébe beirod azt, hogy növelje egyel a szineket és a megfelelő szinnel irja ki a felirat szinét :

Szinpos:=Szinpos+1;

if Szinpos>=16 then Szinpos:=0;

Form1.Label1.Font.Color:=Szinek[Szinpos];

Form1.Label1.Update;

Szerintem ennyi.

Ha más lenne a feleadat, próbáld leirni (esetleg eddigi kódot bemásolni), és próbálok/próbálunk segiteni.

Sok sikert.

Üdv.