Problem w Delphi 7

[godfather]

W piątek mam kolosa z tego czegoś, ale jakoś mi to nie leży. Mam różne zadania do przećwiczenia, ale bez rozwiązań, może ktoś by mi co nieco wyjaśnił.

1. Zmiana koloru formularza co sekundę

Próbowałem z pętlą, czyli:

begin

Repeat

Form1.Color:=clred;

Form1.Color:=clwhite;

Until

end;

Tylko nie wiem jak określić Until żeby mi to zmieniał co sekundę.

Próbowałem też coś w stylu:

begin

Form1.Color:=clwhite;

Repeat

if Form1.Color:=clwhite then Form1.Color:=clred;

if Form1.Color:=clred then Form1.Color:=clwhite;

Until Form1.Color:=clgreen;

end;

Same błędy...

Jak ktoś się na tym zna to będę wdzięczny za wszelkie wskazówki.

[Pavulon]

a nie możesz wstawić timer'a na formę ?

[prat]

Jedna rzecz. W Delphi operatorem przypisania jest :=, ale operatorem porównania =. Instrukcje warunkowe w drugim listingu są złe, o czym zresztą na pewno kompilator mówił.

Dwa wstaw na forme kontrolkę Timer, określ interwał na 1000ms i w zdarzeniu OnTimer (dwa razy klik na kontrolkę to się od razu kod powinien zrobić) zrób to co chcesz tam robić co sekunde.

Edytowane 9 Lutego 2011 przez prat

[godfather]

No tak, w timerze miałem wstawiać, ja kombinowałem w formie. Dzięki na razie, ale pewnie do piątku się jeszcze takie proste problemy napatoczą xD