21.05.2016, 20:13
Kod:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(count);
if (Edit1.Color=clDefault) then
begin
Edit1.Color:=clYellow;
end
else
Edit1.Color:=clDefault;
if count>7 then Timer1.Enabled:=false;
end;
1. Zawsze mam rację.
2. Jeśli nie mam racji, patrz pkt 1.
2. Jeśli nie mam racji, patrz pkt 1.