[delphi] Achtergrond laten knipperen

[Hydraulik-Phunk]

Hiephoi ik zit hier in de les Delphi en verveel me de tering. Dus: een vragaje: Hoe kan ik mijn achtergrond (irritant) laten knipperen in een Delphi progje?
Met welk statement bedoel ik dus, ik ben al wat aan t klooien geweest met repeat until maar t wil nog niet echt lukken..

Mzls

[Creepy]

code:

form1.color:=clBlack;
while true do
begin
     if form1.color=clblack then
      form1.color:=clwhite
     else
      form1.color:=clblack;
end;

zoiets? (hmm.. ongetest.. hoop dat het werkt

[Verwijderd]

Het voorgaande voorbeeld is veel te snel. Probeer de code onder te brengen in het onTimer event van een Timer. Je kan dan zelf instellen om de hoeveel miliseconden de achtergrond van kleur veranderd.

[Creepy]

of bouw een sleep in o.i.d.

code:

sleep(500); // doe ene halve second niks

[Crysania]

zeker 1 van de eerste weken delphi les

ik vond delphi les op het begin altijd heel gaaf.

nog een irritante

onmousemove event de kleur 1 op laten hogen, totdat die max is dan weer op minimum zetten

[Hydraulik-Phunk]

Nee, 2e jaar delphi (blijven bakken) maar ik verveelde me en wilde snel ff iets in elkaar knutselen.

iig bedankt!

[Verwijderd]

Op dinsdag 13 november 2001 15:45 schreef Esger het volgende:
Nee, 2e jaar delphi (blijven bakken) maar ik verveelde me en wilde snel ff iets in elkaar knutselen.

iig bedankt!

dan heb je zeker in die tweee jaar niks geleerd, sorry maar ik ben super n00b, en ik kan dat al , kan natuurlijk zijn dat je het spontaan bent vergeten

[Crysania]

na 1 jaar verwacht ik toch wel iets meer van een delphi programmeur, ik ben nu ook 1 1/2 jaar bezig, en dit vind ik toch wel ERG ERG ERG basic, dit maakte wij in de eerste week ofzo

[Creepy]

Op dinsdag 13 november 2001 12:51 schreef THE_CR0SS het volgende:
zeker 1 van de eerste weken delphi les

ik vond delphi les op het begin altijd heel gaaf.

nog een irritante

onmousemove event de kleur 1 op laten hogen, totdat die max is dan weer op minimum zetten

code:

form1.color:=(form1.color + 1 ) mod $01000000

Zoiets?

Maar goed.. dit zijn inderdaad super basic dingen. Die doe je in de eerste week.. dan weet je ze wel... Misschien dat je in die eerste week nog niet op die MOD komt, maar in je tweede jaar toch wel, of worden de verschillende operators niet meer uitgelegd?