checkbox

Øh.......

Kan du ikke skrive lidt mere præcis hvad du mener???

Er den er 'rigtig' pære, eller er det en komponent/'noget andet'???

pæren er en komponent

stone

okay, mail mig komponentet, så skal jeg se om jeg kna hitte på noget...;-)

UPS!!!

min mail adresse er: Lojmann@cyberguys.dk

Checkbox1.Checked:=Paere1.Enabled eller hvad for en property der nu måtte angive om den er tændt eller ej.


Mvh Primeware

komponentet har 2 funktioner som hedder
oncolor"clLime"
offcolor"clRed"

checkbox1 skal når den er checked lyse
clLime - og slukket når checkbox1 ikke
er checked.

det er ikke noget problem når checkbox1
er checked.
men når man fjerner afkrydsningen skal
den lyse clRød igen.

stone

Lav en Onclick event for checkbox'en:

if checkbox1.checked=true then
    komponent.color:=clLime;
    else
    komponent.color=clRed;

hvor komponent er navnet på komponenten, evt. med formnavnet foran (formnavn.komponent.color...).

den skifter ikke til clRed igen,
men forblivcer clLime, når afkrydsningen fjernes igen.

stone

Ups. Jeg havde også lavet en slåfej. Det rigtige er:

if checkbox1.checked=true then
  komponent.color:=clLime;
  else
  komponent.color:=clRed;

Et enkelt kolon i sidste linie var røget ud, så linie gik fra at være en assigment til et booleansk udtryk.

Og her er et lille toip fra stoons...

Lav en timer og sæt interval = 30 (ca.)

Indfør det tryl skrev i denne timer!

Så checkes det nemlig konstant om pæren skal være tændt eller slukket....

tak til tryl, og stoons for han sjove indfald

stone

...og så lige en lille kommentar: der skal aldrig ; foran else... Altså, ovenstående er ikke korrekt syntaks, og bliver afvist af Delphi - men det har du nok opdaget :o)

Når, ja. Det er rigtigt. Det er en dum vane jeg får når jeg skriver meget i Perl :-)
Men som du skriver, har stone nok selv fået det rettet.